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PARTS  REQUIREMENTS  AND  COST  MODEL  (PARCOM)  DOCUMENTATION 
PARCOM  FUNCTIONAL  DESCRIPTION 


CHAPTER  1 

GENERAL  DESCRIPTION 


1-1.  PURPOSE  OF  THE  FUNCTIONAL  DESCRIPTION.  This  functional  description 
of  the  Parts  Requirements  and  Cost  Model  (PARCOM)  provides: 

a.  The  structure  of  the  model  logic  which  will  serve  as  a  basis  for 
mutual  understanding  between  the  user  and  the  developer. 

b.  Information  on  model  restrictions,  potential  for  extension,  and  user 
impacts. 

1-2.  PROJECT  REFERENCES 

a.  Parts  Requirements  and  Cost  Model  (PARCOM)  User's  Guide,  CAA-D-84- 
10,  US  Army  Concepts  Analysis  Agency,  October  1984. 

b.  Aircraft  Spare  Stockage  Methodology  (Aircraft  Spares)  Study,  CAA-SR- 
84-12,  US  Army  Concepts  Analysis  Agency,  April  1984. 

c.  Pickard,  W.  C.,  Zellner,  P.  A.,  and  Bailey,  D.  R.,  DOD  Assimilation 
of  US  Air  Force  Methodologies  for  Relating  Logistics  Resources  to  Materiel 
Readiness,  SYNERGY,  Inc.,  August  1983. 

1-3.  TERMS  AND  ABBREVIATIONS.  The  reader  is  directed  to  the  glossary  at 
the  end  of  this  document. 

1-4.  DEVELOPMENT  BACKGROUND.  The  US  Army  Concepts  Analysis  Agency  (CAA) 
developed  PARCOM,  a  model  for  generating  cost  effective  mixes  of  aircraft 
spare  parts  which  satisfy  specified  scenario  conditions.  Development  oc¬ 
curred  during  the  course  of  the  Aircraft  Spare  Stockage  Methodology  (Air¬ 
craft  Spares)  Study  conducted  by  CAA.  That  study,  and  PARCOM  development, 
were  in  response  to  interest  shown  by  the  Deputy  Chief  of  Staff  for  Logis¬ 
tics  (DCSLOG)  in  developing  a  methodology  (or  methodologies)  relating  air¬ 
craft  spare  parts  stockage  levels  to  combat  readiness  and  flying  hour 
capability.  The  calculation  of  spare  parts  requirements  and  of  the  effects 
of  budgeting  changes  has  been  a  slow  and  cumbersome  peacetime-oriented  ex¬ 
ercise.  The  principal  criterion  for  spares  stockage  has  been  the  achieve¬ 
ment  of  acceptable  stockout,  or  fill  rate,  levels.  To  more  real i stical ly 
predict  wartime  spare  parts  requirements,  and  to  better  justify  budget 
requests  for  spare  parts  procurement,  the  Army  needed  a  more  responsive 
methodology  based  on  wartime  flying  hour  expectations  and  system 
readiness/ avai labil ity  requirements. 


1-5.  STRUCTURE  OF  ARMY  AIRCRAFT  LOGISTICS 


a.  Governing  Regulations.  Policy  and  procedural  guidance  for  the 
Army's  inventory  management  efforts  is  largely  contained  in  two  regula¬ 
tions: 

•  AR  710-1  Centralized  Inventory  Management  of  the  Army  Supply  System 

•  AR  710-2  Supply  Policy  Below  the  Wholesale  Level 

(1)  AR  710-1  establishes  responsibilities  and  procedures  for  central¬ 
ized  inventory  management  of  Army  materiel  by  the  major  subordinate 
commands  (MSC)  of  the  US  Army  Materiel  Command  (AMC). 

(2)  AR  710-2  prescribes  supply  procedures  to  be  used  at  the  retail 
level,  including  methods  for  determining  authorized  stockage  lists  and  ap¬ 
propriate  stockage  levels. 

b.  Maintenance  System  Structure.  Figure  1-1  illustrates  the 
interaction  of  supply,  maintenance,  and  industrial  activities  within  the 
aircraft  parts  logistics  system. 

(1)  Parts  Storage  Locations.  Aircraft  spare  parts  are  stored  with 
using  units  at  the  Aviation  Unit  Maintenance  (AVUM)  and  the  Aviation  Inter¬ 
mediate  Maintenance  (AVIM)  levels.  Aircraft  spare  parts  are  stored  in  var¬ 
ious  CONUS  depots  for  shipment  to  users  upon  requisition.  Additionally, 
war  reserve  parts  are  stored  in  various  CONUS  depots  or  prepositioned  in 
the  appropriate  theater. 

(2)  Participating  Organizations  and  Responsibilities.  AVUM 
facilities  are  organic  to  the  lower  echelon  aviation  units  which  actually 
fly  and  maintain  the  Army's  aircraft.  These  user  units  stock  a  prescribed 
load  list  (PLL)  of  repair  parts  at  the  AVUM  level.  PLLs  are  sized  to 
sustain  the  unit's  anticipated  wartime  flight  operations  for  a  specified 
number  of  days  (usually  15).  Stockage  levels  and  reordering  procedures  are 
governed  by  AR  710-2.  AVIM  units  develop  their  own  authorized  stockage 
lists  (ASL)  based  on  demands  for  parts  received  from  supported  AVUM  units 
and  from  their  own  AVIM  operations.  AVIM  ASLs  are  exclusive  of  subordinate 
unit  PSLs.  The  development  of  ASLs  is  also  governed  by  AR  710-2.  Part 
types  are  selected  for  PLL  and  ASL  stockage  based  upon  a  combination  of 
experienced  demand  frequency  and  mission  essentiality.  The  AVIM/AVUM 
(retail)  parts  requirements  are  supported  by  stocks  maintained  in  supply 
depots  (wholesale)  in  CONUS.  Automated  inventory  management  techniques  are 
employed  by  AVSCOM  to  authorize  and  record  fill  of  retail  requisitions  by 
the  appropriate  wholesale  depot.  Depot  stocks  are  replenished  through 
procurement  of  new  parts  or  repair  of  returned  unserviceables. 


Figure  1-1.  Aircraft  Parts  L  tics  System 
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c.  Areas  of  Consideration 

(1)  Peacetime  versus  Wartime.  Peacetime  requirements  for  spare  parts 
are  computed  based  upon  experienced  annual  demand  and  projected  peacetime 
usage.  AVSCOM  uses  an  automated  system  of  data  bases  and  models  to  fore¬ 
cast  these  requirements,  and  bases  its  computations  on  a  supply  availabil¬ 
ity  goal.  Wartime  requirements  are  computed  and  funded  separately  from 
peacetime  requirements,  and  address  those  parts  required  to  sustain  the 
force  during  the  initial  stages  of  war  until  lines  of  communication  and 
supply  can  be  established.  The  primary  consideration  for  peacetime 
requirements  is  meeting  supply  availability  goals,  while  that  for  war 
reserve  requirements  is  meeting  sustainability  goals. 

(2)  Initial  Provisioning  versus  Replenishment.  Computation  of  the 
spare  parts  requirement  for  initial  provisioning  of  new  weapons  systems  is 
necessarily  based  on  less  concrete  data  than  is  that  for  replenishment 
parts  for  already  fielded  systems.  No  demand  history  has  yet  been  devel¬ 
oped,  so  engineering  estimates  of  parts  failure  factors  are  used  instead. 

In  many  cases,  all  the  parts  to  be  included  in  the  new  aircraft  have  not 
been  fully  identified,  and  their  cost  must  be  extrapolated  from  that  of  a 
list  of  major  assemblies.  AVSCOM  has  an  automated  capability  to  compute 
initial  provisioning  requirements  based  on  these  projected  data.  Over  the 
first  2  years  of  a  system's  life,  actual  demand  data  is  accumulated  and 
given  increasing  weight  in  spare  parts  management  decisions.  After  a  sys¬ 
tem  has  been  fielded  for  2  years,  its  replenishment  spare  parts  require¬ 
ments  are  computed  using  actual  demand  data  to  the  maximum  extent  possible. 

(3)  Retail  versus  Wholesale.  The  Army  splits  its  inventory  manage¬ 
ment  into  "retail"  and  "wholesale"  activities.  In  the  aviation  logistics 
context,  AVUM-  and  AVIM-level  parts  stockages  are  termed  "retail,"  while 
those  at  the  depot  level  are  termed  "wholesale."  The  methodologies  used  to 
compute  spare  parts  requirements  for  the  retail  and  wholesale  levels  are 
entirely  different  and  essentially  unrelated.  Retail  siockage  levels  are 
computed  and  authorized  based  upon  a  combination  of  demand  experience,  com¬ 
bat  essentiality,  and  mobility  requirements.  AR  710-2  establishes  computa¬ 
tional  procedures  used  by  retail  parts  managers  to  determine  their  stockage 
levels  and  appropriate  reorder  points.  Wholesale  parts  requirements  are 
computed  based  upon  average  monthly  demand  experienced  at  the  wholesale 
level.  Wholesale  item  managers  have  little  visibility  of  retail  spare 
parts  postures  or  weapons  system  availabilities.  Rather,  wholesale  parts 
are  procured  or  repaired  at  rates  calculated  to  achieve  a  chosen  demand 
satisfaction  percentage  without  backorders. 

(A)  Fill  Rate  versus  System  Availability  Criteria.  AVSCOM  computes 
spare  parts  requirements  with  the  objective  of  achieving  a  target  fill 
rate.  Its  goal  is  to  fill  a  selected  percentage  of  all  demands  received 
without  having  to  backorder  parts.  The  item  manager  does  not  base  his 
parts  management  decisions  on  weapons  system  availability,  and  in  fact,  has 
little  or  no  visibility  of  this  retail  level  criterion.  Department  of 
Defense  (DOD) 
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deployed.  Computed  "cumulative  aircraft  surviving"  entries  are  defined  by 
the  difference  between  "cumulative  aircraft  deployed"  and  "cumulative 
aircraft  lost."  Since,  for  simplicity,  our  example  shows  a  zero  aircraft 
attrition  rate,  surviving  aircraft  is  equal  to  deployed  aircraft.  The 
"program  flying  hours"  column  gives  the  flying  hour  objective  in  terms  of 
required  program  flying  hours  for  the  fleet  on  each  day.  The  last  column 
gives  the  availability  objective  in  terms  of  an  input-specified  daily 
minimum  (fleet)  aircraft  availability  required  each  day.  The  input- 
specified  "maximum  flying  hours  per  aircraft  per  day"  is  also  noted  at  the 
bottom  of  the  table. 


Table  2-4.  Scenario  Data 


Day 

Cumulative 

aircraft 

deployed 

Cumulative 

aircraft 

lost 

Cumulative 

aircraft 

surviving 

Program 

flying 

hours 

Minimum 

aircraft 

availability 

1 

150 

0 

150 

500 

.10 

2 

200 

0 

200 

1,000 

.09 

3 

200 

0 

200 

1,000 

.09 

4 

200 

0 

200 

1,500 

.09 

5 

200 

0 

200 

1,500 

.09 

Maximum  flying  hours  per  aircraft  per  day  =  10. 
Cost  limit  for  constrained  cost  case  =  $4,300. 
Desired  convergence  (constrained  cost)  =  0. 
Maximum  iterations  (constrained  cost)  =  2. 


c.  Calculation  of  Daily  Allowable  NMCS  Aircraft.  Table  2-5  shows 
results  of  the  calculation  of  allowable  NMCS  aircraft  for  each  day.  Each 
result  in  the  rightmost  column  is  the  surviving  aircraft  minus  the  larger 
of: 

(1)  The  minimum  aircraft  required  to  achieve  the  daily  flying  hour 
objective,  for  each  day,  computed  as  "program  flying  hours"  divided  by 
"maximum  flying  hours  per  aircraft  per  day." 

(2)  The  minimum  aircraft  required  to  achieve  the  daily  availability 
objective,  for  each  day,  computed  as  the  product  of  "surviving  aircraft" 
and  "minimum  aircraft  availability." 


Component  calculations  for  the  first  day,  using  the  data  of  Table  2-4,  are 
shown. 
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2-2.  EXAJf’LE.  The  algorithm  logic  described  in  the  previous  paragraph  can 
be  better  understood  through  use  of  a  manual  example.  The  tables  to  follow 
portray  a  stylized  but  useful  hypothetical  example  which  uses  only  "back- 
of-the  envelope"  calculations.  The  tables  all  apply  to  one  case  and  are 
presented  in  the  same  sequence  as  the  model  algorithms  described  in  the 
previous  paragraph. 

a.  Part  Data  Base.  Tables  2-2  and  2-3  show  a  part  data  base  for  two 
part  types.  Recall  that  failure  rate  is  in  terms  of  failures  per  flying 
hour  and  QPA  =  number  of  parts  installed  per  operational  aircraft. 


Table  2-2.  Part  Characteristic  Data 


Failure 

■■ 

Initial 

Part 

rate 

QPA 

Hal 

i nventory 

1 

.08 

1 

$400 

250 

2 

.02 

1 

$  50 

10 

The  time  units  in  Table  2-3  are  in  days.  The  last  column  of  Table  2-3  is 
the  computed  repair  cycle  calculated  from  the  other  data  in  that  row,  e.g., 
for  Part  1,  the  repair  cycle  =  2  *  OST  +  depot  repair  time  =  3  days.  The 
repair  cycle  for  a  part  is  defined  as  the  average  time  between  failure  of  a 
part  and  its  (repaired)  return  to  the  retail  spare  pool.  Only  the  repair 
cycle  entry  will  be  used  in  succeeding  calculations  because  it  includes  the 
effects  of  the  other  data  in  Table  2-3. 


Table  2-3.  Part  Repair  Time  Data 


Part 

OST 

Depot 

repair 

time 

Retail 

repair 

time 

NRTS 

fraction 

Depot 

condemned 

Retail 

condemned 

Repair 

cycle 

1 

1 

1 

0 

0 

0 

3 

2 

0 

0 

3 

0 

0 

3 

b.  Scenario  Data  Base.  Table  2-4  shows  the  scenario  data  for  the  case. 
A  5-day  "war"  is  shown.  The  aircraft  status  (deployed,  lost)  entries  are 
for  the  start  of  the  associated  day  of  the  war.  Thus,  for  example,  50 
aircraft  are  newly  deployed  at  the  start  of  day  2.  By  "cumulative  aircraft 
deployed"  is  meant  all  aircraft  deployed  in  theater  from  the  start  of  the 
war  through  the  given  day.  No  aircraft  are  assumed  withdrawn  once 
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g.  Capability  Assessment  of  Constrained  Cost  Requirements  Mix.  PARCOM 
also  generates  the  daily  fleet  availability  and  flying  hour  capability 
achieved  with  constrained  cost  solution  mixes.  Recall  that  these  mixes  are 
derived  for  a  "no  substitution"  policy  only.  With  unconstrained  costs,  net 
demand  was  based  on  the  entire  planned  flying  hour  program  being  flown. 

For  a  constrained  cost  mix,  some  unknown  (at  first)  number  of  hours  will  be 
flown.  That  number  must  initially  be  estimated  and  an  iterative  approach, 
as  shown  in  Figure  2-6,  applied  to  determine  NMCS  aircraft,  availability, 
and  achievable  program  flying  hours.  For  each  day,  therefore,  a  starting 
estimate  of  flying  hours  flown  is  made  (the  first  day's  starting  estimate 
is  the  program  flying  hours).  Then,  net  demand,  as  based  on  the  estimated 
flying  hours,  is  computed,  followed  by  implied  NMCS  aircraft  (generated  by 
the  estimated  flying  hours),  achievable  flying  hours,  and  flying  hours  per 
available  aircraft.  The  achievable  flying  hours  are  compared  with  the 
estimated  flying  hours  flown.  If,  based  on  input  thresholds,  they  are 
close  enough,  the  iterations  stop.  If  not,  the  calculations  are  repeated 
based  on  a  new  starting  estimate  of  flying  hours  equal  to  the  average  of 
the  estimated  and  the  achieved  flying  hours.  After  iterations  for  a  day 
are  completed,  the  available  aircraft  for  the  day  and  their  flying  hour 
potential  are  calculated  based  on  the  last  calculation  of  NMCS  aircraft  and 
on  the  maximum  flying  hour  potential  per  aircraft  per  day  (an  input). 
Processing  for  the  next  day  uses  a  starting  estimate  of  flying  hours  based 
on  the  "achieved  flying  hours"  of  the  previous  day. 
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Figure  2-6.  PARCOM  Computation  Algorithm  for  Constrained  Cost 

Capability  Assessment 
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initial  inventory  is  assumed  to  be  the  sum  of  the  computed  requirement  and 
the  original  initial  inventory.  For  each  computed  unconstrained  cost 
requirements  mix,  PARCOM  generates  a  record  of  achieved  daily  and  average 
aircraft  availability,  achieved  program  flying  hours,  and  achieved  flying 
hours  per  available  aircraft  per  day.  The  achieved  program  flying  hours 
are  simply  the  program  flying  hours,  by  definition,  of  an  unconstrained 
cost  solution.  Also  by  definition,  aircraft  availability  =  1.00  for  a 
"NMCS  =  0"  policy.  The  PARCOM  capability  assessment  algorithm  assesses 
daily  and  average  availability  for  both  the  full  substitution"  and  "no 
substitution"  policies.  The  calculations  depend  principally  on  the  net 
demand  and  NMCS  determinations  explained  earlier.  Recall  that  for  a  "no 
substitution"  policy,  each  stockout  creates  an  NMCS  aircraft,  so  the  sum  of 
stockouts  over  all  parts  is  al^o  the  number  of  NMCS  aircraft  created.  For 
a  "full  substitution"  policy  a  jingle  NMCS  aircraft  may  have  stockouts  for 
several  different  parts.  In  this  case  the  number  of  NMCS  aircraft  created 
is  the  largest  value,  over  all  parts,  of  the  quotient  of  stockouts  divided 
by  QPA  for  each  part  type.  For  each  day,  the  number  of  NMCS  aircraft  is 
subtracted  from  the  number  of  surviving  aircraft  to  yield  available 
aircraft.  Availability  is  then  the  ratio  of  available  to  surviving 
aircraft.  Flying  hours  per  available  aircraft  is  just  the  daily  program 
flying  hours  divided  by  the  number  of  available  aircraft  for  the  day. 


Figure  2-5.  PARCOM  Computation  Algorithm  for  Unconstrained 
Cost  Capability  Assessment 
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item  (regardless  of  part  type)  creates  an  NMCS  aircraft.  Therefore,  our 
constrained  cost  solution  mix  minimizes  the  instances  of  NMCS  created  by 
the  constrained  funds.  The  solution  tends,  heuristically,  toward  the 
achievement  of  maximum  cumulative  flying  hours. 


Figure  2-4.  PARCOM  Requirements  Computation  Algorithm  for 
Constrained  Cost  with  "No  Substitution" 


f.  Capability  Assessment  of  Unconstrained  Cost  Requirements  Mix. 

Figure  2-5  illustrates  the  PARCOM  computation  algorithm  for  capability 
assessment  of  the  unconstrained  cost  requirements  solutions.  After  each 
unconstrained  cost  solution  mix  for  the  "no  substitution"  and  "full 
substitution"  cases  is  computed,  PARCOM  generates  a  record  of  daily  and 
average  fleet  operational  capability  achievable  by  stocking  each  computed 
requirement,  i.e.,  the  new 
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(2)  With  "no  substitution,"  PARCOM  determines  allowed  stockout  and 
net  demand  for  the  most  expensive  parts  first.  Allowed  stockout  is,  again, 
the  number  of  permissible  NMCS  aircraft.  Because  there  is  no  overlap/con¬ 
solidation  of  stockout  effects  (as  was  the  case  for  "full  substitution"), 
requirements  computations  for  parts  are  interdependent.  An  iterative  algo¬ 
rithm  is  used  to  reflect  part  interdependence.  The  algorithm  of  Figure  2-3 
also  applies  to  the  "no  substitution"  and  "NMCS  =  0"  requirements.  The 
points  affected  by  policy  differences  during  algorithm  application  are  sum¬ 
marized  in  Table  2-1.  Understanding  of  calculation  of  "no  substitution" 
parts  requirements  is  assisted  by  reference  to  the  example  of  paragraph 
2-2. 


Table  2-1.  Differences  in  Application  of  PARCOM 
Unconstrained  Cost  Requirements  Algorithm  by  Policy 


Policy 

Algorithm  procedure/calculation 

Allowable  stockout 

Order  of  processing 

Full  sub 

Allowed  NMCS  acft  x  QPA 

Irrevelant 

No  sub 

Allowed  NMCS  acft 

By  decreasing  part  cost 

NMCS  =  0 

0 

Irrelevant 

e.  Constrained  Cost  "No  Substitution"  Requirement.  After  the  uncon¬ 
strained  cost  "no  substitution"  requirements  are  computed,  they  become  the 
basis  for  the  constrained  cost  solution.  A  cost  limit  on  spares  is  input 
along  with  the  other  scenario  and  objective  data.  A  constrained  cost  parts 
mix  can  be  constructed  by  the  simulated  "spending"  of  money  to  "buy",  in 
order  of  increasing  part  unit  cost,  the  part  requirements  of  the  uncon¬ 
strained  cost  solution  until  the  money  is  exhausted.  That  would  entail  the 
procurement  of  the  largest  number  of  total  parts  from  the  unconstrained 
cost  solution.  However,  another  characteristic  of  such  a  constrained  cost 
parts  mix  is  that  it  is  the  mix  which  has  the  fewest  "unbought"  (hence, 
unstocked)  items  from  the  unconstrained  cost  solution.  The  PARCOM  algo¬ 
rithm,  shown  in  Figure  2-4,  arrives  at  its  solution  by  calculating  "un¬ 
bought"  items.  Initially,  it  "spends"  the  full  cost  of  the  unconstrained 
cost  requirements  mix  assuming  it  to  be  the  constrained  cost  solution. 
PARCOM  subsequently  selects  the  fewest  number  of  items  to  remove  from  that 
solution  until  the  remaining  parts  mix  is  priced  at  the  input  cost  limit. 
Because  the  programed  algorithm  solves  by  "unbuying"  items  rather  than 
"buying"  them,  parts  are  processed  in  decreasing  order  of  part  unit  cost. 
Notice  that  under  a  policy  of  "no  substitution"  each  "unbought" 
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(1)  Net  demand  (for  all  three  replacement  policies)  for  a  part  at  any 
point  in  time  is  the  cumulative  removals  to  that  time  minus  the  sum  of  cum¬ 
ulative  returning  repairs  and  initial  inventory.  Removals  are  generated  by 
the  product  of  failure  rate,  part  QPA  (quantity  installed  per  aircraft), 
and  programed  flying  hours.  Returning  repairs  are  generated  by  removed 
parts  cycling  through  a  "repair  pipeline"  and  being  returned  to  the  point 
of  removal.  A  positive  net  demand  represents  a  shortage  of  the  part. 

(2)  Under  "full  substitution"  the  aircraft  frames  providing  the 
sources  of  parts  substituted  for  failed  parts  when  spares  are  unavailable 
are  consolidated  to  the  minimum  possible  number,  i.e,  there  will  be  a  maxi¬ 
mum  overlap  of  aircraft  frames  providing  missing  parts.  Because  of  this 
overlap,  the  spare  parts  requirements  for  each  part  may  be  independently 
computed.  For  a  "full  substitution"  policy,  the  allowable  stockout  for  a 
part  on  any  day  is  the  product  of  allowable  NMCS  aircraft  for  that  day  and 
the  part  QPA. 

(3)  As  indicated  by  Figure  2-3,  the  minimum  spare  requirement  for  a 
part  needed  to  achieve  the  case  objective  on  any  day  is  the  net  demand  for 
that  part  minus  the  allowable  stockout.  The  overall  spare  requirement  for 
a  part  is  the  largest  of  the  daily  minimum  spare  requirements  for  that 
part.  It  is  a  least  cost  solution  because  it  is  the  smallest  purchase  of 
that  part  which  will  permit  the  case  objective  to  be  met  on  all  days. 

c.  Unconstrained  Cost  "NMCS  =  0"  Requirement.  The  "NMCS  =  0"  policy 
corresponds  to  the  case  in  which  100  percent  aircraft  availability  is  re¬ 
quired  every  day.  In  such  a  case  allowed  NMCS  aircraft  and  allowable 
stockout  both  must  be  zero  every  day.  The  "NMCS  =  0"  case  could  be  con¬ 
sidered  a  special  case  of  a  "full  substitution"  case  with  a  100  percent 
aircraft  availability  objective  (the  "no  substitution"  case  with  that  ob¬ 
jective  would  yield  the  same  answer,  because  part  substitution  policy  is 
irrelevant  when  no  stockouts  are  allowed).  The  spares  required  by  the 
solution  to  the  "NMCS  =  0"  case  also  can  be  interpreted  as  the  total  ex¬ 
pected  net  demand  for  a  part  during  the  war.  It  is  a  least  cost  solution 
because  any  amount  less  than  that  required  to  meet  the  expected  demand  will 
create  an  NMCS  aircraft,  i.e.,  will  not  meet  the  case  objective. 

d.  Unconstrained  Cost  "No  Substitution"  Requirement 

(1)  Under  "no  substitution,"  the  stockouts  generated  by  parts  remov¬ 
als  in  excess  of  on-hand  spares  must  each  be  associated  with  separate  air¬ 
craft  frames.  Every  missing  part  results  in  an  inoperable  (NMCS)  aircraft. 
It  is  most  cost  effective,  therefore,  to  assign  the  allowed  stockout 
(allowed  number  of  NMCS  aircraft)  to  the  most  expensive  parts.  For 
example,  if  50  aircraft  are  allowed  to  be  NMCS  and  a  shortage  exists  of  50 
expensive  parts  and  50  cheap  ones,  the  50  cheap  ones  need  to  be  bought.  If 
75  expensive  parts  and  50  cheaps  ones  are  short,  there  will  be  no  choice 
but  to  buy  25  expensive  ones  (leaving  50  unbought)  and  50  cheap  ones,  in 
order  to  best  meet  the  case  objective. 
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b.  Unconstrained  Cost  "Full  Substitution"  Requirement.  Figure  2-3 
shows  the  PARCOM  algorithm  used  to  compute  a  requirements  solution  for  all 
three  parts  replacement  policies  with  unconstrained  costs.  The  difference 
between  "full  substitution"  and  "no  substitution"  calculations  is  in  the 
ways  that  allowed  stockouts  are  calculated.  Net  demand  is  the  same  for 
each. 


Figure  2-3.  PARCOM  Requirements  Computation  Algorithm  for  Unconstrained 
Costs,  "Full  Substitution",  "No  Substitution",  and  "NMCS  =  0" 
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a.  Calculation  of  Daily  Allowable  NMCS  Aircraft.  To  meet  flying  hour 
and  availability  goals,  the  maximum  number  of  aircraft  allowed  to  be  down 
due  to  a  lack  of  parts  (allowable  NMCS  aircraft)  is  determined  for  each 
day.  As  shown  in  Figure  2-2,  separate  minimums  are  computed  of  aircraft 
required  to  meet  the  flying  objective  and  the  availability  objective  (if 
any).  The  largest  of  the  two  minimums  is  subtracted  from  the  number  of 
surviving  aircraft  on  each  day  to  yield  the  "allowable  NMCS  aircraft"  for 
that  day.  Within  the  subsequent  processing  algorithms,  the  "allowable  NMCS 
aircraft"  is  converted  to  an  "allowable  stockout"  for  each  part  and 
replacement  policy.  The  "allowable  stockout"  for  a  part  on  a  day  is  just 
the  maximum  number  of  backorders  (unfilled  demands)  for  the  part  which  will 
still  allow  accomplishment  of  the  case  objective  (flying  hour  and  availa¬ 
bility)  on  that  day,  i.e.,  these  are  parts  that  are  missing  but  which  don't 
have  to  be  bought. 


Figure  2-2.  PARCOM  Computation  Algorithm  for  Allowable  NMCS  Aircraft 
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CHAPTER  2 


PARCOM  LOGIC 


2-1.  ALGORITHMS.  PARCOM  is  a  series  of  expected  value  simulations  of  the 
spare  part  requirements  generation  process  for  cases  defined  by  a  combina¬ 
tion  of  parameters  noted  in  the  previous  chapter.  In  addition,  the  model 
computes  the  capability  potential  of  the  force  when  operated  with  each  com¬ 
puted  spares  mix.  The  assessed  capability  potential  is  in  terms  of  achiev¬ 
able  aircraft  availability  and  fraction  of  the  flying  hour  program  which 
can  be  accomplished.  Figure  2-1  illustrates  the  general  nature  and 
sequence  of  PARCOM  processing.  The  basic  model  sequence,  with  logic 
diagrams  as  appropriate,  is  described  as  follows: 


Figure  2-1.  PARCOM  Processing  Sequence 
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(2)  Residual  Requirement.  Best  add-on  (to  input  initial  inventory)  re¬ 
quirements  mix,  with  a  "no  substitution"  policy,  that  can  be  bought  with  a 
funding  limit  equal  to  the  input  cost  limit. 

(3)  Daily  Aircraft  Available.  For  each  day  of  the  full  scenario,  the 
fraction  of  surviving  aircraft  which  are  not  NMCS,  assuming  that  the 
initial  spare  inventory  is  set  equal  to  the  sum  of  the  computed  parts 
requirement  and  the  original  initial  inventory. 

(4)  Daily  Flying  Hour  Fraction.  For  each  day  of  the  full  scenario, 
the  fraction  of  the  fleet  flying  program  which  can  be  achieved  assuming 
that  the  initial  spare  inventory  is  set  equal  to  the  sum  of  the  computed 
parts  requirement  and  the  original  initial  inventory. 

(5)  Daily  Flying  Hours  per  Aircraft  per  Day.  For  each  day  of  the 
scenario,  the  average  achieved  flying  hours  per  aircraft  per  day,  assuming 
the  computed  solution  parts  mix  is  stocked. 

1-9.  TYPICAL  PROBLEMS  ADDRESSED.  A  single  PARCOM  run  can  provide  answers 
to  several  problems  pertinent  to  a  given  scenario.  From  the  user  point  of 
view,  typical  problem  statements,  given  a  specified  aircraft  deployment 
schedule,  flying  program,  and  attrition  scenario  are: 

a.  What  is  the  least  cost  add-on  buy  needed  to  achieve  the  flying  pro¬ 
gram  using  "full  substitution"  parts  replacement  ^nd  requiring  that  NMCS 
not  exceed  0.15  on  all  days?  What  is  the  associated  daily  NMCS  status? 

b.  With  a  budget  limit  of  $10,000,000,  what  spares  should  be  added  to 
current  inventory,  using  a  "no  substitution"  policy,  to  increase,  to  the 
extent  possible,  the  fraction  of  the  flying  program  achieved?  What  is  the 
associated  daily  NMCS  status?  What  is  the  associated  fraction  of  the 
flying  program  that  is  achievable? 


P 
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d.  Aircraft  Availability  Objective.  An  aircraft  availability  objective 
is  a  requirement  for  a  specific  minimum  aircraft  availability  on  each  day 
(different  days  may  have  different  minimum  required  availabilities).  In 
this  context,  aircraft  availability  =  1  -  NMCS,  where  NMCS  =  the  fraction 
of  surviving  aircraft  in  "not  mission  capable  supply"  status.  An  aircraft 
is  in  an  NMCS  status  if  it  is  nonoperational  because  spare  parts  are  needed 
but  are  not  available  to  restore  it  to  serviceability.  Specification  of 
availability  objectives  is  in  addition  to  the  flying  hour  objective. 
Specification  of  a  zero  availability  objective  is  equivalent  to  no 
availability  objective  at  all. 

1-8.  SIAWARY  OF  PARCOM  OUTPUT.  The  following  are  the  basic  types  of  print 
output  produced  by  PARCOM  for  requirements  problems.  Details  may  be  found 
in  the  PARCOM  User's  Guide. 

a.  Unconstrained  Cost  Cases 

(1)  Total  Requirement.  Total  least-cost  parts  mix  and  costs  required 
to  achieve  the  case  objectives  (flying  program  and  availability)  given  a 
zero  initial  inventory. 

(2)  Residual  Requirement.  The  least-cost  add-on  parts  mix  (to  an 
input  initial  inventory)  and  costs  required  to  achieve  the  case  objectives. 

(3)  Cumulative  Cost  by  Day.  For  each  day  N  (N=l,  2,...,  through  end 
of  "war"),  the  total  and  the  add-on  cost  of  the  full  parts  requirement  to 
meet  the  case  objectives  through  day  N  only,  i.e.,  it  is  the  cost  of  the 
requirement  for  a  truncated  scenario  of  N  days.  Parts  mix  is  not  shown. 

(4)  Cumulative  Requirement  by  D^y.  For  selected  items,  for  each  day 
N,  the  cumulative  total  requirement  needed  (in  the  full  parts  scenario)  to 
meet  the  case  objectives  through  N  days.  A  zero  initial  inventory  is 
assumed  in  this  output. 

(5)  Daily  Aircraft  Available.  For  each  day  of  the  full  scenario,  the 
fraction  of  surviving  aircraft  which  are  not  NMCS,  assuming  that  the 
initial  spare  inventory  is  set  equal  to  the  sum  of  the  computed  parts 
requirement  and  this  original  initial  inventory. 

(6)  Daily  Flying  Hours  per  Aircraft  per  Day.  For  each  day  of  the 
scenario,  the  average  achieved  flying  hours  per  available  aircraft  per  day 
assuming  the  computed  solution  parts  mix  is  stocked. 

b.  Constrained  Costs 

(1)  Total  Requirement.  Total  "best"  requirements  mix,  with  zero  ini¬ 
tial  inventory,  and  with  a  "no  substitution"  policy,  that  can  be  bought 
with  a  funding  limit  equal  to  the  sum  of  the  value  of  "refunded"  current 
spares  inventory  and  the  input  cost  limit.  The  objective  of  a  "best"  mix 
is  to  maximize  flying  hour  productivity  with  the  constrained  funds. 
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failures.  Gross  part  failures  interact  with  initial  spare  inventory  and 
the  repair  process  at  depot  and  at  retail  to  produce  a  net  demand  for  spare 
parts  at  user  level.  The  net  demand  for  spare  parts  at  user  level  then 
determines  the  number  of  surviving  d.rcraft  that  are  mission  capable  or  not 
mission  capable  supply  (NMCS).  As  will  be  seen  in  the  next  chapter,  PARCOM 
simulates  all  interactions  in  expected  value  terms,  i.e.,  in  terms  of  the 
product  of  an  average  process  rate  and  the  number  of  "items"  subjected  to 
that  process. 

1-7.  PARCOM  PROBLEM  SPECIFICATION.  The  basic  purpose  of  PARCOM  is  to  gen¬ 
erate  cost-effective  mixes  of  add-on  spare  parts  needed  to  permit  an  air¬ 
craft  fleet  of  specified  type  to  achieve  specified  flying  program  and 
availability  goals  under  various  cost  constraints,  part  replacement  poli¬ 
cies,  and  aircraft  availability  objectives.  These  are  described  below 
in  summary  fashion.  Additional  detail  may  be  found  in  the  PARCOM  User's 
Guide. 

a.  Cost  Constraints.  The  two  cost  constraint  modes  are: 

(1)  Unconstrained  Funds  -  where  unlimited  funds  for  procurement  of 
additional  required  parts  are  assumed  available. 

(2)  Constrained  Funds  -  where  a  cost  (funding)  limit  for  add-on 
spares  is  set.  If  unable  to  meet  the  flying  hour  and,  possibly, 
availability  objectives  with  the  limited  funds,  the  model  generates  a 
"best"  solution  mix  with  the  funds  available,  i.e.,  it  seeks  to  maximize 
program  flying  hours  achievable  within  the  funding  constraint. 

b.  Part  Replacement  Policies.  The  two  basic  part  replacement  policies 
are:* 

(1)  Full  Substitution  -  where  a  failed  part  on  an  aircraft  may  be 
replaced  by  either  a  spare  (if  available)  or  by  a  serviceable  part  from  a 
"not  mission  capable"  (NMC)  aircraft  (if  a  spare  is  not  available). 

(2)  No  Substitution  -  where  a  failed  part  on  an  aircraft  may  only  be 
replaced  by  a  spare  part.  With  constrained  funds,  PARCOM  operates  in  this 
mode  only. 

c.  Flying  Hour  Objective.  A  flying  hour  objective  is  a  requirement  for 
the  aircraft  fleet  to  achieve  a  specified  number  of  flying  hours  on  each 
day  of  the  scenario.  An  input  flying  hour  program  designates  the  daily 
goal.  A  basic  PARCOM  objective  is  to  generate  a  parts  mix  which  will 
achieve  the  specified  flying  program  at  least  cost. 


*"NMCS  =  0"  is  treated  as  a  third  part  replacement  policy  but  is  really 
a  special  case  of  "no  substitution"  in  which  aircraft  availability  is 
constrained  to  be  100  percent. 


has  expressed  its  support  for  implementation  of  system  availability-driven 
parts  requirements  computation  methodologies  in  all  the  armed  services. 

The  primary  difficulty  for  the  Army  is  the  collection  of  accurate  data  to 
drive  such  automated  models. 

d.  Similarity  of  Aircraft  and  Other  Spares  Procurement.  Each  of  the 
MSCs  uses  the  Commodity  Command  Standard  System  (CCSS)  to  meet  its 
inventory  management  responsibilities.  The  processes  used  are  essentially 
the  same  for  all  types  of  spares. 

1-6.  PARCOM  REPRESENTATION  OF  LOGISTICS  ENVIRONMENT.  The  PARCOM  "world 
view"  of  the  aircraft  part  logistics  system  is  based  on  the  representation 
in  Figure  1-1.  PARCOM,  however,  has  only  two  echelons  of  stock  and  repair, 
vi2. : 

a.  Wholesale  Level.  This  level  consists  of  the  "depot  stocks"  and 
"depot  maintenance"  blocks  of  Figure  1-1.  Depot  maintenance  is  represented 
in  terms  of  depot  repair  times,  depot  condemnation  rates,  and  order  ship 
times  (OST)  between  depot  and  retail  level.  PARCOM  assumes  that  initial 
spares  stockage  at  depot  can  be  made  available  to  retail  level  before  users 
at  retail  have  "drawn  down"  initial  in-theater  stocks,  i.e.,  efficient 
transportation  and  positioning  of  initial  spares  stock  is  assumed.  The 
effect  of  this  assumption  is  the  same  as  that  resulting  from  front-loading 
of  initial  stocks  at  retail  level.  Production  of  new  parts  by  industry  is 
not  treated  in  PARCOM. 

b.  Retail  Level.  This  level  is  treated  as  one  pool  (or  "bin")  of  spare 
parts  stocks  consisting  of  all  stocks  at  AVIM  and  AVUM  levels  in  Figure 
1-1.  Retail  maintenance  is  treated  as  an  aggregate  process  and  is  repre¬ 
sented  in  terms  of  retail  repair  times,  not  repairable  this  station  (NRTS) 
percentages,  and  retail  condemnation  rates.  Essentially,  "retail"  repre¬ 
sents  pooled  AVIM  and  AVUM  functions. 

c.  Users.  Users  of  spare  parts  are  deployed  aircraft.  PARCOM  treats 
deployed  aircraft  only  at  retail  level.  These  are  augmented  by  (input) 
scheduled  deployments  of  additional  aircraft  (from  a  presumed  rear  area) 
during  the  course  of  a  simulated  "war.”  Currently,  PARCOM  can  treat  only  a 
homogeneous  aircraft  fleet  of  one  type  for  a  single  force.  Deployed  air¬ 
craft  are  subject  to  attrition  based  on  (input)  attrition  factors. 

Combat  is  not  explicitly  represented. 

d.  Failure  Generation.  The  deployed  aircraft  fleet  is  assigned  (via 
input)  a  flying  hour  program,  broken  into  daily  flying  hour  requirements. 
PARCOM  finds  a  cost-effective  mix  of  spare  parts,  which,  over  the  course  of 
the  "war",  will,  on  average,  achieve  the  set  flying  program  in  addition  to 
specified  daily  aircraft  availability  requirements.  If  spares  procurement 
funds  are  constrained,  PARCOM  seeks  a  cost-effective  spares  mix  achieving 
as  much  of  the  flying  program  as  possible.  Input  failure  rates  for  spare 
parts  are  in  terms  of  failures  per  flying  hour.  In  general,  achieved 
flying  hours  interact  with  part  failure  rates  to  produce  gross  part 
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Table  2-5.  Calculation  of  Allowable  NMCS  Aircraft 


Day 

Minimum  aircraft  required 

Allowable 

NMCS  acft 

Flying  hour 
objective 

Availability 

objective 

1 

500/10  =  50 

150*. 10  =  15 

150-50  =  100 

2 

100 

18 

100 

3 

100 

18 

100 

4 

150 

18 

50 

5 

150 

18 

50 

d.  Unconstrained  Cost  Full  Substitution  Total  Requirement.  Tables  2-6 
and  2-7  show  the  calculations  for  the  total  requirement  (initial  inventory 
=  0)  under  full  substitution.  Each  "cumulative  net  demand"  entry  is  just 
the  "cumulative  failures"  minus  the  sum  of  the  "cumulative  returning 
repairs"  and  the  initial  inventory.  "Cumulative  failures"  is  based  on  the 
program  hours  being  flown  and  is  computed  by  accumulating  (over  days)  the 
product  of  failure  rate,  QPA,  and  program  flying  hours  for  each  day  (as 
taken  from  Tables  2-3  and  2-4).  Initial  inventory  is  set  to  zero  as 
prescribed  for  the  calculation  of  "total  requirements."  The  "cumulative 
returning  repairs"  entries  are  the  "cumulative  failures"  entries  lagged  by 
three  days  (the  repair  cycle  from  Table  2-3).  Any  condemnations  (our  case 
has  none)  would  have  to  be  deducted  from  the  lagged  failures.  If  R  is  the 
length  of  the  repair  cycle  for  a  part  (see  Table  2-3),  PARCOM  treats  all 
noncondemned  failures  occurring  at  the  start  of  day  n  as  being  returned  to 
the  retail  spare  pool  at  the  start  of  day  n  +  R.  If  a  part  has  both  a 
depot  repair  cycle  and  a  retail  repair  cycle,  PARCOM  would  partition 
repairs  over  the  two  cycles.  In  our  simplified  example.  Part  1  has  only  a 
depot  repair  cycle  of  three  days  while  Part  2  has  only  a  retail  repair 
cycle  of  three  days.  The  "allowable  stockouts"  under  full  substitution  is 
calculated  as  the  product  of  "allowable  NMCS  aircraft"  (from  Table  2-5)  and 
the  part  QPA.  Since  QPA  =  1  for  both  parts  (see  Table  2-2),  allowable 
stockouts  =  allowable  NMCS  aircraft.  The  "day  requirement"  is  calculated 
as  the  larger  of  zero  and  (cumulative  net  demand  minus  allowable  stock¬ 
outs).  The  overall  requirement  for  each  part  is  determined  as  the  largest 
value  (over  days)  of  the  "day  requirement"  entries.  It  is  circled  in  each 
table.  Component  calculations  are  displayed  for  the  first  day  based  on  the 
data  of  Tables  2-2  through  2-5.  At  the  end  of  Table  2-7,  the  total  cost  of 
the  computed  requirements  mix  is  also  shown  based  on  the  unit  cost  data  in 
Table  2-2. 
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Table  2-6.  Unconstrained  Cost  Total  Requirement  (Initial  Inventory  *  0) 

with  Full  Substitution  -  Part  1 


Day 

Cumulative 

failures 

Cumulative 

returning 

repairs 

Cumulative 

net 

demand 

Allowable 

stockouts 

Day 

rqmt 

1 

.08*500  =  40 

0 

40-0-0  =  40 

100 

max(0, 40-60)  =  0 

2 

120 

0 

120 

100 

20 

3 

200 

0 

200 

100 

100 

4 

320 

40 

280 

50 

230 

5 

440 

120 

320 

50 

dZ5> 

Table  2-7.  Unconstrained  Cost  Total  Requirement  (Initial  inventory  =  0) 

with  Full  Substitution  -  Part  2 


Day 

Cumulative 

failures 

Cumulative 

returning 

repairs 

Cumulative 

net 

demand 

Allowable 

stockout 

Day 

rqmt 

1 

.02*500  =  100  0 

10-0-0  =  10 

100 

max(0, 10-100)  =  0 

2 

30 

0 

30 

100 

0 

3 

50 

0 

50 

100 

0 

4 

80 

10 

70 

50 

20 

5 

110 

30 

80 

50 

C2D 

Total 
=  270 

requirements 
*  400  +  30  * 

cost  =  Part  1 
50  =  $109,500. 

rqmt  *  400  +  1 

3  art  2  rqmt  * 

50 

e.  Unconstrained  Cost  Full  Substitution  Residual  Requirement.  Tables 
2-8  and  2-9  show  calculations  for  the  residual  requirement  under  full  sub¬ 
stitution.  The  principal  difference  is  that  initial  inventory  =  250  for 
Part  1  and  =  10  for  Part  2.  The  "cumulative  net  demand"  column  entries  are 
less  than  the  previous  case  because  the  nonzero  initial  inventory  is  sub¬ 
tracted  from  the  previous  values.  The  logic  is  the  same  as  in  the  previous 
case.  The  computed  overall  requirement  (circled)  is,  now,  just  the  add-on 
requirement  to  the  specified  initial  inventory.  The  total  cost  also 
reflects  only  the  add-on  requirement. 
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Table  2-8.  Unconstrained  Cost  Residual  Requirement  (Initial  Inventory  s  250) 

with  Full  Substitution  -  Part  1 


Day 

Cumulative 

failures 

Cumulative 

returning 

repairs 

Cumulative 

net 

demand 

Allowable 

stockout 

Day 

rqmt 

1 

.08*500  =  40 

0 

max(0,-210)  =  0 

100 

max(0, 0-100)  =  0 

2 

120 

0 

0 

100 

0 

3 

200 

0 

0 

100 

0 

4 

320 

40 

30 

50 

0 

5 

440 

120 

70 

50 

dD 

Table  2-9.  Unconstrained  Cost  Residual  Requirement  (Initial  Inventory  =  10) 

with  Full  Substitution  -  Part  2 


Day 

Cumulative 

failures 

Cumulative 

returning 

repairs 

Cumulative 

net 

demand 

Allowable 

stockout 

Day 

rqmt 

1 

.02*500  =  10 

0 

10-0-10  =  0 

100 

max(0, 0-100)  =  0 

2 

30 

0 

20 

100 

0 

3 

50 

0 

40 

100 

0 

4 

80 

10 

60 

50 

10 

5 

110 

30 

70 

50 

C§D 

Total  residual  requirements  =  Part  1  rqmt  *  400  +  Part  2  rqmt  *  50  = 
20  *  400  +  20  *50  =  $9,000. 


f.  Unconstrained  Cost  "NMCS  =  0"  Total  Requirement.  As  noted 
previously,  this  is  a  special  case  of  the  unconstrained  cost  "full 
substitution"  calculations  in  which  we  set  "allowable  stockouts  =  0". 

Table  2-10  shows  the  calculations.  "Cumulative  net  demand"  is  the  same  as 
in  Tables  2-6  and  2-7  because  it  is  not  affected  by  part  replacement 
policy.  As  a  general  rule,  the  "day  requirement"  under  "NMCS  =0"  is  the 
same  as  "cumulative  net  demand"  for  that  day.  The  overall  requirement  for 
each  part  is  circled  in  the  figure.  Total  costs  are  given  below  the 
figure. 


2-13 


Table  2-10.  Unconstrained  Cost  Total  Requirement  (Initial  Inventory  =  0) 

with  "NMCS  =  0" 


Part  1  Part  2 


Day 


Cumlative 
net  demand 

Allowable 

stockouts 

Day 

rqmt 

Cumulative 
net  demand 

Allowable 

stockouts 

Day 

rqmt 

1 

40 

0 

40-0  =  40 

10 

0 

10-0  =  10 

2 

120 

0 

120 

30 

0 

30 

3 

200 

0 

200 

50 

0 

50 

4 

280 

0 

280 

70 

0 

70 

5 

320 

0 

80 

0 

d£> 

Total 

requirement 

cost  =  320  * 

400  +  80  * 

50  = 

$132,000 

g.  Unconstrained  Cost  “NMCS  =  0“  Residual  Requirement.  Table  2-11 
shows  calculations  for  the  residual  requirement  under  "NMCS  =  0".  The 
"cumulative  net  demand"  entries  are  the  same  as  in  Tables  2-8  and  2-9.  The 
same  logic  used  in  the  "full  substitution"  case  applies  here.  The  computed 
overall  requirement  (circled)  is  only  the  add-on  to  the  input-specified 
initial  inventory. 


Table  2-11.  Unconstrained  Cost  Residual  Requirement 
with  "NMCS  =  0" 


Part  1  (init  inv  *  250)  Part  2  (init  inv  *  10) 


Cumulative 

Allowable 

Day 

Cumulative 

Allowable 

Day 

net  demand 

stockouts 

rqmt 

net  demand 

stockouts 

rqmt 
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h.  Unconstrained  Cost  "No  Substitution"  Total  Requirement.  Tables  2-12 
and  2-13  show  calculations  for  our  example  problem.  The  tables  are  present¬ 
ed  in  the  required  sequence  of  computations,  i.e.,  the  most  expensive  part 
(Part  1)  is  processed  first.  The  "cumulative  net  demand"  is  the  same  as 
used  in  Table  2-6  because  it  is  not  altered  by  the  substitution  policy  used. 
The  "day  requirement"  is  just  the  cumulative  net  demand  (the  shortage  on 
that  day)  minus  the  allowable  stockout  (the  allowed  shortage)  for  that  day 
(but  not  less  than  zero).  The  overall  Part  1  requirement  is  the  circled 
largest  "day  requirement".  The  Part  1  requirement  is  treated  as  "purchased" 
during  further  processing  (for  other  part  requirements).  Table  2-13  shows 
the  calculation  of  the  second  part  requirement  which  must  be  for  the  next 
most  expensive  part  (i.e.,  Part  2  in  our  example).  The  "purchase"  of  the 
Part  1  requirement  alters  the  initial  inventory  for  that  part.  Therefore, 
the  old  cumulative  net  demand  for  Part  1  (based  on  initial  inventory  =  0) 
in  Table  2-12  is  reduced  by  270  (the  new  initial  inventory  for  Part  1)  to 
generate  the  new  cumulative  net  demand  for  that  part.  The  new  cumulative 
net  demand  for  Part  1  is  just  the  number  of  stockouts  which  must  be  allo¬ 
cated  from  that  part.  For  a  "no  substitution"  policy  the  total  allowed 
stockout  consists  of  the  summed  stockouts  over  all  parts  treated.  For  each 
day,  the  cumulative  net  demand  for  Part  1  acts  as  a  "lock"  or  "claimant"  on 
the  same  number  of  stockouts  in  the  original  allowable  stockout.  Require¬ 
ments  for  Part  2  can  only  be  based  on  the  unallocated  allowable  stockout, 
tabulated  in  Table  2-13,  which  is  the  original  allowed  stockout  minus  all 
"claimant"  stockouts  (net  demands)  from  parts  already  processed.  Since  the 
Part  2  requirement  is  not  yet  "purchased"  (it  is  being  computed),  the  "cum¬ 
ulative  net  demand"  column  of  Table  2-7  is  repeated  in  Table  2-13.  The 
"day  requirement"  in  Table  2-13  is  calculated  as  the  cumulative  net  demand 
for  Part  2  minus  the  unallocated  allowable  stockout.  As  before,  the  over¬ 
all  requirement  (circled)  is  the  largest  of  the  day  requirements.  The  Part 
2  requirement  would  be  assumed  "purchased,"  and  the  process  would  be  con¬ 
tinued  with  less  expensive  parts  (if  any).  Each  successive  calculation 
would  use  an  "unallocated  allowable  stockout"  equal  to  the  original  (Table 
2-12)  allowable  stockout  reduced  by  the  sum  total  of  allocated  stockouts 
reflected  in  "purchases"  of  parts  already  processed. 


Table  2-12.  Unconstrained  Cost  Total  Requirement  (Initial  Inventory  *  0) 
with  No  Substitution  -  Part  1  Requirement  Calculation 


Cumulative 

Allowable 

Day 

Day 

net  demand 

stockouts 

rqmt 

Table  2-13.  Unconstrained  Cost  Total  Requirement  (Initial  Inventory  =  0) 
with  No  Substitution  -  Part  2  Requirement  Calculation 


Cumulative  net  demand 

Unallocated 

allowable 

stockouts 

Day 

Part  1 

( init  inv  =  270) 

Part  2 

(init  inv  =  0) 

Day 

rqmt 

1 

0 

10 

100-0  =  100 

0 

2 

0 

30 

100-0  =  100 

0 

3 

0 

50 

100-0  =  100 

0 

4 

280-270  =  10 

70 

50-10  =  40 

70-40  =  30 

5 

320-270  =  50 

80 

50-50  =  0 

80-0  <!£) 

Total  requirements  cost  =  270  *  400  +  80  *  50  =  $112,000. 


i.  Unconstrained  Cost  "No  Substitution"  Residual  Requirement.  Tables 
2-14  and  2-15  show  calculations  for  our  example  problem.  The  basic  logic 
is  exactly  the  same  as  for  the  previous  case  (initial  inventory  =  0).  How¬ 
ever,  the  residual  requirements  and  the  net  demand  used  to  compute  them  are 
based  on  the  input-specified  initial  inventory  (Part  1  =  250,  Part  2  =  10). 
The  "cumulative  net  demand"  in  Table  2-14  is  the  same  as  the  "cumulative 
net  demand"  in  Table  2-8  (because  it  depends  only  on  initial  inventory,  not 
substitution  policy).  Part  1  requirements  are  calculated  in  the  same 
manner  as  in  the  previous  case.  The  calculations  for  the  second  part  (Part 
2)  in  Table  2-15  differ  from  those  in  Table  2-13  only  because  "cumulative 
net  demand"  for  Part  2  is  taken  from  Table  2-9,  i.e.,  is  based  on  initial 
inventory  =  10.  The  "cumulative  net  demand"  entries  for  Part  1  in  Table  2- 
15  are  the  same  as  those  in  Table  2-13  because  the  "purchase"  of  20  of  Part 
1  (the  computed  requirement  in  Table  2-13),  when  added  to  an  initial 
inventory  of  250,  yields  the  same  "new  initial  inventory"  as  the  purchase 
of  270  of  Part  1  (the  computed  requirement  of  Table  2-11)  added  to  a  zero 
initial  inventory.  The  requirements  for  this  case  are  add-on  requirements. 


Table  2-14.  Unconstrained  Cost  Residual  Requirement  with  No 
Substitution  -  Part  1  Requirement  Calculation 
(Initial  Inventory  =  250) 


Day 

Cumulative 
net  demand 

Allowable 

stockouts 

Day 

rqmt 

1 

0 

100 

0 

2 

0 

100 

0 

3 

0 

100 

0 

4 

30 

50 

0 

5 

70 

50 

Table  2-15.  Unconstrained  Cost  Residual  Requirement 

with 

No  Substitution  -  Part  2  Requirement  Calculation 

Cumulative 

net  demand 

Unallocated 

Part  1 

Part  2 

allowable 

Day 

Day 

(init  inv  =  270) 

(init  inv  =  10) 

stockouts 

rqmt 

1 

0 

0 

100-0  =  100 

0 

2 

0 

20 

100-0  =  100 

0 

3 

0 

40 

100-0  =  100 

0 

4 

280-270  =  10 

60 

50-10  =  40 

60-40  =  20 

5 

320-270  =  50 

70 

50-50  =  0 

70-0  <ZlD 

Total 

residual  requirements  cost  =  20  *  400 

+  70  *  50  =  $11,500. 

j.  Constrained  Cost  Add-on  Requirements.  Table  2-16  shows  calculations 
for  the  constrained  cost  add-on  requirements  with  "no  substitution"  and 
with  an  add-on  cost  limit  of  $4,300.  The  table  is  arranged  in  steps.  In 
step  1  the  constrained  cost  requirement  is  (temporarily)  set  equal  to  the 
unconstrained  cost  no  substitution  residual  requirement  computed  in  Tables 
2-14  and  2-15.  The  "rqmt  cost"  column  shows  the  cost  of  that  requirement. 
The  "unaffordable  dollars"  column  shows  the  amount  by  which  that  require¬ 
ment  cost  exceeds  our  specified  cost  limit.  Since  that  entry  is  positive, 
the  requirement  is  updated  by  selecting  the  most  expensive  part  from  those 
with  nonzero  add-on  requirements  (Part  1  in  our  case)  and  by  setting  the 
requirement  for  that  part  to  zero.  The  new  requirement  is  shown  in  step  2. 
Since  the  cost  of  the  new  requirement  is  less  than  the  cost  limit,  the 
"unaffordable  dollars"  are  negative.  In  that  case  the  final  requirements 
are  set  by  updating  the  requirement  for  the  last  part  processed  (i.e.,  the 
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part  with  its  requirement  set  to  zero)  to  the  quotient  of  the  last 
unaffordable  dollars  entry  and  unit  cost  =  (-800)/400  =  2  in  our  example. 
The  final  add-on  requirements  are  circled  in  Table  2-16. 


Table  2-16.  Constrained  Cost  Residual  Requirement  with 
No  Substitution  -  Cost  Limit  =  $4,300 


Requirement  (init  inv  =  250,  10)  j 

Step 

Part  1 

Part  2 

1 

20 

70 

2 

3 

db 

70 

c8d 

Rqmt 

cost 


Unaffordable 

dollars 


$11,500 
$  3,500 
$  4,300 


$7,200 
$  -800 
0 


k.  Constrained  Cost  Total  Requirement.  Table  2-17  shows  calculations 
for  this  case,  which  is  based  on  a  zero  initial  inventory  and  a  cost  limit 
equal  to  the  cost  of  current  inventory  (250  *  400  +  10  *  50  =  100,500)  plus 
the  input  cost  limit  (4,300).  The  resulting  cost  limit  is  $104,800.  The 
logic  is  the  same  as  in  the  previous  case.  Only  the  numbers  are  changed  to 
reflect  the  zero  initial  inventory  base.  Thus,  the  step  1  cost  requirement 
is  the  unconstrained  cost  total  requirement  from  Tables  2-12  and  2-13. 

Note  that  the  final  requirement  is  equivalent  to  the  sum  of  the  residual 
requirement  computed  in  Table  2-16  and  the  input  initial  inventory.  Such 
equivalence  is  not  always  true. 


Table  2-17.  Constrained  Cost  Total  Requirement  with 
No  Substitution  -  Cost  Limit  =  $104,800 


Step 

Requirement  (init  inv  =  0) 

Rqmt 

cost 

Unaffordable 

dollars 

Part  1 

Part  2 

1 

270 

80 

$  112,000 

$  7,200 

2 

0 

80 

$  4,000 

$-100,800 

3 

cm? 

d<D 

$  104,800 

0 

1.  Requirements  Sunmary.  Table  2-18  presents  a  summary  of  all  total 
requirement  cases  (initial  inventory  =  0)  treated  thus  far.  Table  2-19 
summarizes  the  residual  (add-on)  requirement  cases. 
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Table  2-18.  Total  Requirements  (Initial  Inventory  =  0)  Summary 


Cost 

constraint 

Requirements  (init  inv  =  0) 

Rqmt 

cost 

Part  1 

Part  2 

Unconstrained  cost 

Full  sub 

270 

30 

$109,500 

No  sub 

270 

80 

$112,000 

NMCS  =  0 

320 

80 

$132,000 

Constrained  cost  (no  sub)  252 

80 

$104,800 

(Limit  =  $104,800) 


Table  2-19.  Residual  (Add-on)  Requirements  Summary 


Cost 

constraint 

Requirements  (init  inv  =  250,  10) 

Rqmt 

cost 

Part  1 

Part  2 

Unconstrained  cost 

Full  sub 

20 

20 

$  9,000 

No  sub 

20 

70 

$11,500 

NMCS  =  0 

70 

70 

$31,500 

Constrained  cost  (no  sub)  2 

(Limit  =  $4,300) 

70 

$  4,300 

m.  Capability  Assessment  of  Unconstrained  Cost  Total  Requirements-  Full 
Substitution.  Table  2-20  shows  the  capability  assessment  calculations  of 
the  expected  effects  of  stocking  the  requirements  computed  in  Tables  2-6 
and  2-7.  Cumulative  net  demand  for  each  part  type  is  based  on  initial  in¬ 
ventories  being  set  to  the  computed  requirements.  "NMCS  aircraft"  for  each 
day  are  set  equal  to  the  larger  of  the  (cumulative  net  demand)  QPA  entries 
for  the  day.  "Surviving  aircraft"  are  as  in  Table  2-4.  "Available  air¬ 
craft"  are  "surviving  aircraft"  minus  "NMCS  aircraft."  Aircraft  availabil¬ 
ity  is  the  quotient  of  available  and  surviving  aircraft.  Flying  hours  per 
(available)  aircraft  per  day  are  calculated  by  dividing  the  program  flying 
hours  for  each  day  (see  Table  2-4)  by  the  number  of  available  aircraft  on 
that  day.  Average  availability  is  constructed  by  weighting  daily  availa¬ 
bilities  by  the  daily  surviving  aircraft.  Average  flying  hours  per  (avail¬ 
able)  aircraft  per  day  is  weighted  by  the  available  aircraft  on  each  day. 
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Table  2-20.  Capability  Assessment  for  Unconstrained  Cost 
Total  Requirement  -  Full  Substitution 


Day 

Cumulative  net  demand/QPA 

i 

Surviving 
acf  t 

Available 

acft 

Aircraft 

availability 

Flying  hrs 
per  acft 
per  day 

Part  1 

(inlt  Inv  1  270) 

Part  2 

(init  inv  *  30) 

1 

0 

0 

0 

150 

150 

1.00 

3.3 

2 

0 

0 

0 

200 

200 

1.00 

5.0 

3 

0 

( 50-30 ) / 1 

20 

200 

130 

180/200  =  .90 

5.6 

4 

( 280-270)/ 1 

( 70-30 ) / 1 

40 

200 

160 

160/200  =  .30 

9.4 

5 

(320-270)/! 

(80-30)/! 

50 

200 

150 

150/200  =  .75 

10.0 

Avg  availability  *  [(150  *  1)  *  (200  *  1)  ♦  (200  *  .9)  ♦  (200  *  .8)  *•  (200  *  .  75)]  7950  =  .88 

Avg  flying  hrs/acft/day  =  [(150  *  3.3)  +  (200  *  5)  +  (180  *  5.6)  +  (160  *  9.4)  +  (150  *  10)]  7840  =  6.6 


n.  Capability  Assessment  of  Unconstrained  Cost  Residual  Requirements  - 
Full  Substitution.  Table  2-20  also  applies  to  this  case  because  the 
residual  requirements  (calculated  in  Tables  2-8  and  2-9),  when  "stocked" 
and  added  to  the  input-specified  initial  inventory,  yield  the  same  new 
initial  inventory  as  resulted  from  stocking  the  total  (initial  inventory  = 
0)  requirements. 

o.  Capability  Assessment  of  Unconstrained  Cost  Total  Requirement  -  No 
Substitution.  Table  2-21  shows  the  capability  assessment  calculations  for 
the  expected  effects  of  stocking  the  requirements  computed  in  Tables  2-12 
and  2-13.  Cumulative  net  demand  for  each  part  type  is  based  on  initial 
inventories  being  set  to  the  computed  requirements.  Under  a  "no  substitu¬ 
tion"  policy,  "NMCS  aircraft"  for  each  day  are  then  equal  to  the  sum  of  the 
"cumulative  net  demands"  entries  for  that  day.  "Surviving  aircraft"  are  as 
in  Table  2-4.  Component  calculations  are  displayed. 
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Table  2-21.  Capability  Assessment  for  Unconstrained  Cost 
Total  Requirement  -  No  Substitution 


Day 

Cumulative  Net  Demand 

wcs 

acft 

Surviving 

acft 

Aircraft 

availability 

Flying  hours 
per  aircraft 
per  day 

Part  1 

(init  inv  -  270) 

Part  2 

(init  inv  =  80) 

1 

0 

0 

0 

150 

1.00 

500/150  *  3.3 

2 

0 

0 

0 

200 

1.00 

1,000/200  =  5.0 

3 

0 

0 

0 

200 

1.00 

5.0 

4 

280-270  *  10 

0 

10 

200 

190/200  -  .95 

1,500/190  «  7.9 

5 

320-270  »  50 

80-80  =  0 

50 

200 

150/200  =  .75 

1,500/150  =  10 

Avg  availability  *  [(150  x 

1.)  +  (200  x  1.)  ♦ 

(200  x  1.) 

+  (200  x  .95) 

♦  (200  x  . 75)]  /390  =  6.2 

Avg  flying  hrs/acft/day  * 

[(150  x  3.3)  +  (200 

x  5.)  +  (200  x  5.)  +  (190  x  7.9)  +  (150  > 

:  10.)]/890  =  6.2 

p.  Capability  Assessment  of  Unconstrained  Cost  Residual  Requirement-  No 
Substitution.  Table  2-21  also  applies  to  this  case  because  the  residual 
requirements  (calculated  in  Tables  2-14  and  2-15),  when  "stocked"  and  added 
to  the  input-specified  initial  inventory,  yield  the  same  new  initial  inven¬ 
tory  as  resulted  from  stocking  the  total  requirements  (initial  inventory  = 
0). 

q.  Capability  Assessment  of  Constrained  Cost  Residual  (Add-on)  Require¬ 
ment.  Tables  2-22  and  2-23  show  the  capability  assessment  calculations 
for  the  expected  effects  of  stocking  the  requirements  computed  in  Table  2- 
16.  The  scenario  data  (Table  2-4)  specified  a  limit  of  two  iterations  in 
seeking  convergence  of  "estimated  flying  hours"  to  "achieved  flying  hours" 
in  the  calculations.  Each  day  starts  (step  1)  with  an  "estimated  flying 
hours"  based  on  the  program  flying  hours  for  that  day.  Cumulative  net  de¬ 
mands  are  then  generated  for  each  part  type,  based  on  the  estimated  flying 
hours,  resulting  in  NMCS  aircraft  as  shown.  The  available  aircraft  then 
determine  "achieved  program  flying  hours".  If  the  "achieved  flying  hours" 
are  close  enough  (based  on  specified  input  convergence  requirement)  to  the 
"estimated  flying  hours",  the  day's  calculations  are  done.  If  not,  a  new 
step  is  made  with  a  new  flying  hour  estimate  until  either  desired  conver¬ 
gence  is  attained  or  the  input-specified  number  of  steps  (iterations)  have 
been  performed  on  that  day.  For  the  first  four  days  the  achieved  flying 
hours  equal  the  estimated  flying  hours  so  only  one  iteration  is  required. 
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(1)  8y  way  of  illustration,  the  entries  for  day  4  in  Table  2-22  are 
calculated  as  follows: 

•  Flying  hour  estimate  =  1,500  =  program  hours. 

t  Part  1  cumulative  net  demand  (init  inv  =  252)  =  the  largest  of 
cumulative  net  demand  from  Table  2-8  (init  inv  =  250)  -  2  =  30  -2 
=  28  or  0  =  0. 

•  Part  2  cumulative  net  demand  (init  inv  =  80)  =  the  larger  of 
cumulative  net  demand  from  Table  2-9  (init  inv  =  10)  -  70  =  60  - 
70  =  -10  or  0  =  0 

•  NMCS  aircraft  =  sum  of  (2)  and  (3)  =  28. 

•  Available  aircraft  =  surviving  acft  -  NMCS  acft  =  200  -  28  =  172. 

•  Achieved  flying  hours  =  available  acft  *  max  fly  hr/acft/day  or 
the  program  hours  for  the  day  (the  smaller  is  chosen)  =  (172  *  10 
or  1,500)  3  1,500. 

(2)  On  day  5,  there  is  no  convergence,  as  is  shown  in  the 
calculations  for  step  1  shown  below: 

•  Flying  hour  estimate  3  1,500  =  program  hours. 

•  Part  1  cumulative  net  demand  (init  inv  =  252)  =  cumulative 

failures  from  (500  +  1,000  +  1,000  +  1,500  +  1,500)  flying  hours 

-cumulative  returned  repairs  -  252  =  .08  *  (5,500)  -  120  -  252  = 

68. 

•  In  a  similar  way.  Part  2  cumulative  net  demand  =  0. 

•  NMCS  aircraft  =  sum  of  (2)  and  (3)  =  68. 

•  Available  aircraft  =  surviving  acft  -  NMCS  acft  =  200  -  68  =  132. 

•  Achieved  flying  hours  3  the  smaller  of  program  hours  for  day  5 
(1,500)  and  the  product  of  available  aircraft  and  maximum  flying 
hours  per  aircraft  per  day  (=  132  *  10  =  1,320)  =  1,320. 


(3)  At  this  point  the  day  convergence,  C,  is  calculated  as 
(difference  in  estimated  versus  achieved  flying  hours  for  this 

day)/( average  daily  program  flying  hours  in  war).  Total  program  flying 
hours  in  war  =  500  +  1,000  +  1,000  +  1,500  +  1,500  =  5,500.  The  daily 
average  is  5500/5  =  1100.  Therefore,  C  *  (1,500  -1 , 320) /I , 100  =  .16.  If  C 
is  less  than  the  input  convergence  threshold  (=  0  for  this  example),  then 
iterations  for  the  day  stop.  Otherwise,  we  check  whether  completed  step 

(1)  equals  or  exceeds  the  input-specified  iteration  limit  (=  2  for  this 
example).  Since  neither  of  these  limits  is  satisfied,  another  iteration 
for  day  5  proceeds  as  follows: 

•  New  estimated  flying  hours  =  average  of  the  estimated  and 
achieved  flying  hours  from  last  iteration  =  (1,500  +  1 , 320 ) /2  = 
1,410. 

•  Part  1  cumulative  net  demand  =  cumulative  failures  from  flying 
hours  (500  +  1,000  +  1,000  +  1,500  +  1,410)  -  cumulative  returned 
repairs  -initial  inventory  =  .08  *  (5,410)  -  120  -  252  =  61. 

•  Similarly,  Part  2  net  demand  =  0. 

•  NMCS  aircraft  =  61  +  0  =  61. 

•  Available  aircraft  =  200  -  61  =  139. 

•  Achieved  flying  hours  =  min(l,500,  139*10)  =  1,390. 

(4)  Convergence,  C,  for  day  =  5  *  (1,410  -  l,390)/5,500  =  .02.  Since 
C  equals  or  exceeds  the  convergence  threshold,  we  check  if  this  step 

(2)  equals  or  exceeds  our  iteration  limit.  It  does.  Processing  for  this 
day  is  complete. 

(5)  Once  all  days  are  processed,  final  statistics  are  calculated 
based  on  the  achieved  flying  hours  from  the  last  iteration  of  each  day. 

The  fraction  flying  hour  program  achieved  is  calculated  by  dividing  the 
achieved  flying  hours  for  the  day  by  the  program  flying  hours  for  the  day. 
Flying  hours  per  (available)  aircraft  per  day  are  calculated  from  achieved 
flying  hours  divided  by  available  aircraft.  Other  calculations  are 
analogous  to  those  in  Tables  2-20  and  2-21. 

r.  Capability  Assessment  of  Constrained  Cost  Total  Requirements. 

Stocking  the  total  constrained  cost  solution  (computed  in  Table  2-17)  is 
equivalent,  for  this  example,  to  stocking  the  residual  (add-on)  solution. 
Therefore,  Tables  2-22  and  2-23  also  apply  to  the  total  requirements 
solution. 


Table  2-22.  Assessment  Iterations  for  Constrained 
Cost  Residual  Requirement 


Day 

Step 

Estimated 

flying 

hours 

Cumulative 

Net  Demand 

Avai lable 
aircraft 

Achieved 
flying  hr 

Part  1 

(in it  inv  =  25?) 

Part  2 

(init  inv  =  80) 

1 

1 

500 

0 

0 

0 

150 

500 

2 

1 

1,000 

0 

0 

0 

200 

1,000 

3 

1 

1,000 

0 

0 

0 

200 

1,000 

4 

1 

1,500 

28 

0 

28 

172 

1,500 

5 

1 

1,500 

68 

0 

68 

132 

1,320 

2 

1.410 

61 

0 

61 

139 

Table  2-23.  Capability  Assessment  for  Constrained 
Cost  Residual  Requirement 


Day 

E 

Surviving 

acft 

Aircraft 
availabil ity 

Fraction 
flying  pgm 
acheived 

Flying  hour 
per  acft 
per  day 

1 

0 

150 

1.00 

1.00 

500/150  =  3.3 

2 

0 

200 

1.00 

1.00 

1,000/200  =  5.0 

3 

0 

200 

1.00 

1.00 

5.0 

4 

28 

200 

172/200  =  .86 

1.00 

1,500/172  =  8.7 

5 

61 

200 

139/200  =  .70 

1,390/1,500  =  .93 

1,390/139  =  10.0 

Avg  availability  =  [(150  x  1.)  +  2  x  (200  x  1.)  +  (200  x  .86) 

+  (200  x  .70)]  / 95 0  =  .91 

Avg  frac  pgm  achieved  =  [(150  x  1.)  +  (200  x  1.)  +  (200  x  1.)  +  (172  x  1.) 
+  (139  x  .93)] / 86 1  =  .99 

Avg  flying  hr/acft/day  =  [(150  x  3.3)  +  (200  x  5.0)  +  (200  x  5.0)  +  (172  x 
8.7)  +  (  139  x  10.0)] /861  =  6.3 
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the  punning  haximum  (over  tihei  of 

2  71 

c 

the  difference  between  net  OTMAND  IN 

272 

c 

EXCESS  OF  CURRENT  STOCK  FOR  PART  J 

2  7? 

c 

(SR( I, J.. I-STK < J) )  OVEP  DAYS  1,2,... 

2  74 

c 

2  7S 

c 

STK( J) 

300 

REAL 

CURRENT  STOCK  OF  PART  J  (rlSTK(J)) 

( 

2  76 

c 

277 

c 

SUMS  t I  1 

120 

PEAL 

CUMULATIVE  BACKORDERS  (ALL  PARTS  ON  DAY  I 

2  7  8 

c 

279 

c 

ZLOSS (  I  1 

61 

PE  AL 

NUMBER  OF  DAILY  AC  LOSSES  PY  ATTRITION 

.  -* 

2  80 

c 

DURING  I-TH  TIME  INTERVAL  ( I D  A  Y ( I 1  TO 

261 

c 

TDAY (I« 1 ) ) 

282 

c 

28? 

c 

ZNRT( J) 

300 

PE  AL 

NPTS  (NOT  REPAIRABLE  THIS  STATION)  FRACTION 

284 

c 

FOR  PART  J 

.  -  . 

285 

c 

v 

286 

c 

2e7 

c 

288 

c 

COMMON  BLOCH 

(UNLABELEO  1  ENTRIES 

289 

c 

29  r 

c 

291 

c 

NAME  DIMENSION 

TYPE 

OF  SCRIPTION 

292 

c 

29? 

c 

294 

c 

ALLOUB (  I  ) 

170 

PE  AL 

MAXIMUM  ALLOWABLE  NMCS  AC  ON  DAY  I  WHICH 

- 

2  95 

c 

WILL  STILL  ALLOW  ACHIEVMENT  OF  CASC  OBJECTIVE 

* 

2  96 

c 

( FLT  HP  and  AVAILABILItYI  ON  DAT  I 

297 

c 

2  98 

c 

Bcr ( j i 

3  00 

PEAL 

BASE  REPAIR  CYCLE  TIME  (DAYS)  OF  PART  J 

299 

c 

( -BA  IE  REPAIR  TIME  OF  P A PT  )  ( B A SE :R F T A  I L  ) 

*  . 

?  or 

c 

.  -  "  . 

3  J  1 

c 

EF(  J] 

300 

PE  AL 

A  COEFFICIENT  USED  IN  CALCULATION  OF  NET 

302 

c 

REMANDS (SR ( I ,J,.. ) )  FOP  PART  J.  ITr 

3C3 

c 

( 1-BC( J) )*(  I-ZNRT ( Jl  >*CF ( J  1 

304 

c 

3  23 

c 

cr  r  ji 

3no 

PE  *L 

A  COEFFICIENT  USED  IN  CALCULATION  OF  NET 

306 

c 

DEMANDS ( SR (  I  ,J  ,..)  1  FOP  PART  J.  ITr 

307 

c 

FR ( J )*OPA ( J ) 

3  OP 

c 

j 

3  09 

c 

DCY(J) 

3ro 

PEAL 

DEPOT  RECYCLE  TIME  FOR  PART  TYPE  J»I.E. 

3  in 

c 

TIME  BETWEEN  REMOVAL  AND  RETURN  TROM  DEPOT 

3  1 1 

c 

REPAIR.  THIS  ;  OEPOT  RTPAIR  TIME  ♦  2*0RQER 

■  '  „ 

3  12 

c 

SHIP  TIME. 

-  * 

3  17 

c 

3  14 

c 

OF  (  J) 

300 

PC  AL 

A  COEFFICIENT  USED  IN  CALCULATION  OF  NET 

3  1? 

c 

DEMANDS (SR ( I ,J, ..) )  FOP  "API  J.  ITR 

‘  ,  •_  ‘ 

3  16 

c 

(1-DC(J))*ZNRT(J)*CF(J> 

. 

3  17 

c 

3  18 

c 

0M0( Jl 

Tno 

PE  AL 

WORKING  VARIABLE  USED  PRIMARILY  TN  CALC  OF 

3  19 

c 

NET  DEMAND! SR(  I  ,J, ..)  1  FOR  PART  J  ON  DAY  I. 

32P 

c 

WHEN  (CUM)NET  DMO  THRU  DAY  I  IS  BEING 

32  1 

c 

;  ALCL'L  A  TED  ,  DMO  (Jl  IS  (CUM)  NTT  DMD  THRU  THE 

322 

c 

PREVIOUS  DAY. 

323 

c 

'  .  - 

324 

c 

IFC  ( J  > 

3  00 

F2  XED 

ARRAY  WHICH  STORES  THE  PART  NUMBfR(BASED  ON 

3  2  9 

c 

OROEP  OF  INPUT)  COPRF S°OND I NG  TO  THE  J-TH 

326 

c 

RANK  ORDER  ft  A  S  F  D  ON  DECREASING  UNIT  COST 

327 

c 

i 

A-6 
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1  tb 

C 

1  65 

C 

I  fcb 

C 

FHR ( I ) 

120 

peal 

UT 

C 

1  t>B 

C 

1  bq 

c 

tp  i  j  i 

700 

RLAl 

I  7C 

c 

1  71 

c 

1  7? 

c 

1  77 

c 

IDA  Y ( I  1 

61 

FI  XEO 

1  7b 

c 

1  7G 

c 

1  7  fe 

c 

1  77 

c 

1  78 

c 

INC  ( J  1 

300 

El  XEO 

1  79 

c 

1  80 

c 

181 

c 

18? 

c 

IPTIJI 

5 

fixeo 

1  67 

c 

1  8b 

c 

1  8f 

c 

1  6b 

c 

187 

c 

ISTK(J) 

7Go 

ri  xeo 

1  88 

c 

1  89 

c 

NAC ( I  1 

61 

FIXED 

1  90 

c 

191 

c 

1  9? 

c 

NFH ( I  1 

61 

FIXED 

197 

c 

1  9b 

c 

1  9r 

c 

CPA ( J1 

I^D 

PE  AL 

1  9b 

c 

1  97 

c 

1  98 

c 

RA V ( T  ) 

1  20 

CHAR 

1  9« 

c 

?cc 

c 

201 

c 

202 

c 

207 

c 

20b 

c 

2  OS 

c 

RFC (I  1 

120 

REAL 

206 

c 

207 

c 

2  QP 

c 

2  09 

c 

RFCSf J1 

700 

PEAL 

2  ir 

c 

211 

c 

2  12 

c 

2  17 

c 

RFC  S 1 ( J1 

700 

REAL 

2  lb 

c 

2  lc 

c 

2  16 

c 

2  17 

c 

PNC  1 I J 

120 

PE  AL 

2  18 

c 

2  19 

c 

220 

c 

221 

c 

KN'MCSl  (  Jl 

700 

RE  AL 

22? 

c 

227 

c 

22b 

c 

2  2  S 

c 

SM(I, J1 

1  20 ,5 

RE  AL 

2  26 

c 

227 

c 

226 

c 

2  2  q 

c 

2  30 

c 

SNCMI I , J | 

1  2D  ,5 

RE  AL 

271 

c 

2  3? 

c 

2  37 

c 

2  3b 

c 

235 

c 

SUM ( I ,J| 

i  ?n,5 

PE  AL 

236 

c 

2  37 

c 

2  38 

c 

239 

c 

2  bO 

c 

SRMAX1 ( J) 

tog 

PE  »L 

2  b  1 

c 

2  b? 

c 

2  b  7 

c 

2  bb 

c 

2  bS 

c 

OAOAB It I  T  Y  ASSESSMENT  (IT  IS  ITERATED)  . 

TLYING  HOUR  REQUIREMENT  rQp  OAY  I 
BA  SEP  on  INPUT  FLYING  HR  PROGRAM 

rATL(l«r  (REPLACEMENT  )  RATE  FOP  RAPT  J 
EXPRESSED  AS  EXPECTED  NR  OF  FAILURES 
PER  FLYING  HOUR  FLOWN . 

ARRAY  WHICH  TEMPORARILY  STORES  INPUT  DATA  ON 
DAYS  BEGINNING  'DAY  INTERVALS’  (IDAYCII  TO 
TDAY(l«l)t  IN  WHICH  VAPIOUS  INPUT  DATA 
TAKE  EFFECT 

TOTAL  'SOLUTION  STOCK’CCURR  INV  ♦  AOO-ON  R  E  3  > 
r0fl  PART  TYPE  J  FOP  I  IN CO  NS  T  R  COST  CASE 
IRES  I OUAL  REQUIREMENTS  ONLY) 

ARRAY  STORING  INTEPNAL  PART  NR S  (SUBSCRIPTS! 
FOR  PARTS  POP  WHICH  A  CUMULATIVE  DAY  BY  DAY 
REQUIREMENT  HISTORY  IS  TP  PE  PRINTED 
(FOR  I N I T  STKrQ  ONLY  J 

CURRENT  STOCK  OF  PART  J  (INPUT) 

NR  OF  AC  DEPLOYED  A  T  STAPT  OF  I-TH  TIME 
INTERVAL  IIOAY(I)  TO  IOAY(T*II| 

FLYING  HR  REOMT  DUPING  I-TH  TIME 
INTERVAL  (IDAY(I)  TO  IOAY<T«l)l 

•CUANTITY  PEP  APPL IC AT  TON*  FOP  PART  J 
T.E.  NR  OF  PAPT  J  ITEMS  INSTALLED  PEP  AC 

DESIGNATES  DOMINANT  SOURCE  OE  ’minimum 
RE  OU I RE  0  ACFT  AVAIL’  FOR  DAY  I, EITHER 
’FLYING  HR  PROG*  OP  ’AVAIL  CCNSTR’.I.E. 

EITHER  INPUT  FLYING  HP  PROGRAM  GOAL  OR 
ACET  AVAILABILITY  CO NS TR A  I NT ( B OT H  INPUT) 


AC  AVAILABILITY  WHEN  TOTAL  RECIINIT  STK -0 ! 

IS  STOCKED  USING  A  ’FULL  S UB ST  I  TUT  1 0 N • 
PEPLACEMENT  POLICY  WITH  UNCONSTRAINED  COST 

YOTAL  REOMTIINTT  STk^OJ  FOR  PARI  j  USING  A 
•FULL  SUBSTITUTION'  PERLACEMFNT  POLICY 
WITH  UNCONSTRAINED  COST 

RESIDUAL  RECHTIINIT  STKZCUPRSTK)  FOR  PART  J 
USING  A  'FULL  SUBSTITUTION’  REPLACEMENT  POLICY 
WITH  UNCONSTRAINED  COST 

ec  AVAILABILITY  UHFN  TOTAL  RTOIINIT  S T K -n ) 

IS  STOCKED  USING  A  ’NO  SUBSTITUTION’ 

REPLACEMENT  POLICY  WITH  UNCONSTRAINED  COST 

RESIDUAL  RECMTIImIT  STK=CUFR  STK)  FOR  PART  J 
USING  A  ’  NM  C  S  REPLACEMENT  POLICY 

WITH  UNCONSTRAINED  COST 

CUMULATIVE  TOTAL  UNIT  STK=G>  REOMT  FOP 
RAPT  IPT(J)  THRU  DAY  I  WITH  A  FULL  SUBSTITUTION 
REPLACEMENT  POLICY  WITH  UNCONSTRAINED  COST 
(SEE  DESCRIPTION  OF  IpTIJJ) 

CUMULATIVE  TOTAL  UNIT  STK  -0  )  REOMT  FOR 
PART  IPTCJl  THRU  DAY  I  WITH  A  NO  SUBSTITUTION 
REPLACEMENT  POLICY  WITH  UN CONS T R A  1 NE D  COST 
(SEE  DESCRIPTION  OF  TPT(J>) 

CUMULATIVE  TOTAL  (INIT  STKRO)  RECMT  FOP 
PART  IPT(J)  THPU  DAY  I  WITH  A  ’NMCSRO’ 

CEPL ACT  HE  NT  POLICY  WTTH  UN C 0 vS T R A  I NE 0  COST 
fsre  DESCRIPTION  OF  IPT(JJ) 

A  WOPKTNG  VARIABLE  USED  INITIALLY  TO  CALC 
MINIMUM  TOTAL  STOCK  REOMT  UNIT  STK=0) 

TOC  FART  J  UNO  F  R  A  'FULL  SUBSTITUTION’ 
REPLACEMENT  POLICY.  IT  IS  COMPUTED 
AS  THE  RUNNING  MAXIMUM  (OVER  TIME)  OF 
THE  OIEEf PENCE  BETWEEN  NET  OCMANC  FOR 
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•y  ,»  f 


I 


a? 

C 

a3 

C 

CNC  S ( J ) 

300 

real 

a« 

C 

85 

C 

86 

C 

d  7 

C 

CNCSI ( Jl 

3C0 

RE  AL 

BP  C 

as  c 

sn  c 

91  c 


9r 

C 

CNMCS(J) 

300 

RE  AL 

93 

C 

99 

c 

9S 

c 

96 

c 

CNMCS1 ( J) 

300 

real 

97 

c 

9B 

c 

99 

c 

1  OC 

c 

1  Cl 

c 

COST* J) 

300 

RE  AL 

102 

c 

1  JT 

c 

PCI  J) 

300 

RE  Al 

1  04 

c 

105 

c 

1  06 

c 

CUD  T ( J ) 

300 

RE  AL 

107 

c 

1  OP 

c 

1  09 

c 

1  10 

c 

DCOSTF (  I  ) 

1  ?0 

RE  AL 

1  11 

c 

1  1? 

c 

1  1? 

c 

1  14 

c 

DCCSTNI  I  ) 

I2r 

PEAL 

1  15 

c 

1  16 

c 

1  17 

c 

1  IB 

c 

DC0ST2 ( I  ) 

120 

real 

1  19 

c 

120 

c 

121 

c 

12? 

c 

ECOSTFCI  ) 

120 

real 

127 

c 

124 

c 

125 

c 

1  26 

c 

127 

c 

ECOSTN  <  I  ) 

120 

real 

1  2F 

c 

I  2” 

c 

1  3C 

c 

1  31 

c 

1  32 

c 

EC0ST2  ( I  ) 

120 

PE  AL 

1  33 

c 

1  34 

c 

1  35 

c 

1  36 

c 

1  J7 

c 

FHA ( I  | 

1?0 

PEAL 

1  3  P 

c 

1  39 

c 

1  40 

c 

141 

c 

1  4? 

c 

FHPAPO (K  ,1  I 

3  ,170 

RE  AL 

143 

c 

1  44 

c 

1  45 

c 

1  46 

c 

1  47 

c 

1  4F 

c 

]  49 

c 

1 5  r 

c 

1  51 

c 

15? 

c 

1  5  T 

c 

1  54 

c 

FHNCII  ) 

170 

peal 

155 

c 

1  56 

c 

157 

c 

1  5R 

c 

1  59 

c 

FHN7( I ) 

1  DC 

PE  «L 

1  69 

c 

1  bl 

c 

1  6? 

c 

163 

c 

FHA ( I ) 

170 

RE  AL 

TOTAL  COST  UNIT  STktO*  OF  RfOMT  FOR  PART  J 
US  TNO  A  NO  SUSTMUTIDN  REPLACEMENT  POLICY 
WITH  UNCONSTR  COST  WITH  CONSTR  COST 

RESIDUAL  COST  TINIT  r T k r CUPR  STk)CF  REOMT 
(IN  EXCESS  OF  CURRtNT  STOCKI  FOR 
PART  J  USING  A  NO  SUSTITU1TON  REPLACEMENT 
POLICY  WITH  UNCONSTR  COST  WITH  CONSTR  COST 

TOTAL  COST  (TNIT  STKrO)  OF  RECMT  F OR  -ART  J 
USING  A  ’NKCSRO’  REPLACEMENT  POLICY 

WITH  UNCONS TRA  INEO  COST 

RESIPUAL  COST  UNIT  STKRCUPR  STk)CE  REOMT 
(IN  EXCESS  OF  CURRENT  STOCK)  FOR 
PART  J  USING  A  ’NMCSRO'  REPLACEMENT 
POLICY  WITH  UNCONSTRAINED  COST 

COST  OF  A  SINGLE  ITEM  OF  PART  j 

QE  D0  T  CONDEMNATION  RATE  OF  PART  J 
(FRAC  FAILURES  ’JUNKED*  AT  DEPOT  LEVEL) 

TEMPORARY  VALUE  FOR  DMP(J)  USED  WHILE 
CONVERGING  TO  A  S I NG LE ’ Ft Y TNG  HRS  FLOWN’ 

PESULT  DURING  CAPAP1LITY  ASSESSMENT 

CUMULATIVE  COST  OF  TOTAL  (TNIT  STKRQ)  RECMT 
(ALL  PARTS)  THRU  DAY  I  USING  A  FULL 
SUBSTITUTION  POLICY  WITH  UNCONSTRAINED  COST 

CUMULATIVE  COST  OF  TOTAL  (TNIT  STK -0 )  REOMT 
(ALL  PARTS)  THRU  PAY  T  USING  A  NO 
SUBSTITUTION  POLICY  WITH  UNCONSTRAINED  COST 

CUMULATIVE  COST  OF  TOTAL  (TNIT  STKRO)  REQMT 
(ALL  PARTS)  THRU  PAY  T  USING  A  ’NMCS=0’ 

DE  PL  A  CE  MEN  T  POLICY  WITH  UNCONSTRAINED  COST 

CUMUL  COST  OF  RESIDUAL  UNIT  S  TK  -CURR  STK) 

RECMT  (IN  CXCESS  OF  CURRENT  STOCK)  THROUGH 
DAY  1  USING  A  FULL  SUBSTITUTION  REPLACEMENT 
POLICY  WITH  UNCONSTRAINED  COST 

CUMUL  COST  OF  RESIDUAL  (INIT  STk-CURR  STK) 

REOMT  (IN  EXCESS  OF  CURRENT  STOCK)  THROUGH 
nA Y  I  USING  A  NO  SUBSTITUTION  REPLACEMENT 
POLICY  WITH  UNCONSTRAINED  CCST 

CUMUL  COST  OF  RESIDUAL  (INTT  STK  3  CURR  STK) 

REOMT  (IN  EXCESS  OF  CUPRENT  STOCK)  THROUGH 
"AY  I  USING  A  ’NMCSRO’  REPLACEMENT  POLICY 
WITH  UNCONSTRAINED  COST 

INITIAL  ESTIMATE  FOR  FLYTNG  HRS  ACHIEVED  ON 
DAY  I  WHEN  COMPUTED  RECMT  -  BASED  ON  A  COST 
CONSTRAINED  NO  SUBSTITUTION  REPLACEMENT  R011CY- 
IS  STOCKED.  (COMPUTED  RECURSIVELY) 

FHPAPO ( I »I ) -El  YING  HRS  PER  AVAILABLE  acft  pep 
r0P  DAY  I  UNDER  full  SUB  USI»'G  THE  UNCONSTR 
COST  SOLUTION  STOCK. 

rHPAPD ( 2,1 ) =FL YING  HPS  PER  AVAILABLE  ACFT  PEP 
FOR  TAY  I  UNDER  NO  SUE  UST’’G  THE  UNCONSTR 
COST  SOLUTION  STOCK. 

FHPAP0(3, I) -FLYING  HRS  PER  AVAILABLE  ACFT  PER 
FOP  DAY  I  UNDER  NO  SUB  USING  THE  CONSTRAINED 
COST  SOLUTION  STOCK. 

CALCULATED  ESTIMATE  FCP  FLYING  HPS  ACHIEVED  ON 
RAY  I  WHEN  COMPUTED  PEOMT  -  BASED  ON  A  COST 
CONSTRAINED  NO  SUBSTITUTION  REPLACEMENT  POLICY- 
TS  STOCKED.  (COMPUTED  RECURSIVELY) 

FRACTION  OF  FLYING  PROGRAM  COMPLETED  ON  0 A Y  I 
WHEN  COST-CONSTRAINED  SOLUTION  IS  STOCKEO 
US  INC  A  ’NO  SUBSTITUTION’  REPLACEMENT  POLICY 

ESTIMATED  FLY  HRS  FLOWN  ON  DAY  I  DURING 
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MAIN  PROGRAM 


1 

-> 

C 

NAME:  PARCOM 

TYPE 

:  MAIN  PROGRAM 

T 

L 

c 

PURPOSE :  THE  PARC  OH 

(PARTS 

PC  OUTRE  MENT  S  AND  COST  MODEL)  IS  USTD  TO  GENERAL 

4 

c 

COST  CFFCC 

TIVC  MIXES 

OF  SPARC  PARTS  NEEDED  TO  ACHIEVF  A  FIY1NF  PROGPAH 

UNCI 

5 

c 

VARIOUS 

6 

c 

-PART 

REPLACEMENT  POLICIES 

7 

c 

-NMCS 

( NO  T  MISSION  CAPABLE  SUPPLY)  CONSTRAINTS 

P 

o 

c 

-OART 

INVENTORY 

COST  CONSTRAINTS 

10 

1  1 

12 

L 

c 

r 

ARGUMENTS: 

MOT  APPLICABLE 

L 

c 

CALLEO  BY: 

NOT  APPLICABLE 

13 

c 

It 

c 

CALLS 

15 

c 

-FUNCT 

ION  M  AX C 

16 

c 

-FUNCT 

ION  SR 

17 

c 

-subroutine  ncrnct 

ie 

c 

-SUBROUTINE  NCRNCR 

19 

c 

2r 

c 

TILES  USED 

:  INPUT  - 

UNIT 

10  fPARTS  DATA) 

21 

c 

- 

UNTT 

11  (SCENARIO  DATA  ) 

22 

c 

OUTPUT  - 

PR  INT 

23 

c 

TEMP 

UNIT 

12  -FILE  WITH  1CUBR  INV  ♦  AOD-ON  RQMNT)  FOR 

2« 

c 

EACH  PART  TYPE  1 U /  NONZERO  FAILURE  RATE) 

25 

c 

IN  ORDER  OF  INPUT  FOR  THTS  RUN, BASED  CN 

26 

c 

UNCONSTR  COST.  FILE  IS  IN  FORMAT  FOR 

27 

c 

PARCOM  INPUT ( I STK ( J)  )  . 

2P 

c 

2<3 

c 

LOCAL  ARRAYS 

3r 

c 

31 

c 

32 

c 

NAME 

DIMENSION 

TYPE 

DESCRIPTION 

33 

c 

34 

c 

35 

c 

ac(Ii 

120 

real 

NR  A  CF  T  DEPLOYED  ON  PAY  I 

36 

c 

37 

c 

AOESC ( J1 

300 

CHAR 

16  CHAR  DESCRIPTION  OF  SPARE  PART  J 

3P 

c 

39 

c 

ALR (II 

120 

RE  AL 

NR  ACFT  L0STCATTR1TI0N)  ON  DAY  I 

40 

c 

41 

c 

AM  (  I ) 

61 

REAL 

AC  AVAILABILITY  constraint  for  i-th 

42 

c 

•DAY  INTERVAL’  ,I.E.  MINIMUM  REQUIRED  ACFT 

43 

c 

AVAILABILITY  IN  I-TH  ’DAY  INTERVAL’ 

44 

c 

45 

c 

AMSN ( J ) 

300 

CHAR 

IDENTIFICATION  NRINSN)  OF  SPAPE  PART  J 

46 

c 

47 

c 

Asupvm 

120 

REAL 

NR  AC  SURVIVING  (NOT  ATTC I TT CD )0N  DAY  I 

4fi 

c 

49 

c 

AVA VG IK  1 

6 

real 

INITIALLY  AVAVGI1 ) =AVG  ACFT  AVAIL  W/FULL 

so 

c 

SUB  SOLUTION-UNCONSTR  COST.  L  *  TER  AVAVG(l) 

T 

51 

c 

AVG  ACFT  AVAIL  W/NO  SUP  SOL.-CONSTR  COST. 

5? 

c 

A V  AV  G  1  2  1 " AV  G  ACFT  AVAIL  W/NO  SUB  SOL.- 

57 

c 

UNCONSTR  COST. 

54 

c 

55 

c 

AVAVG(3)=AVG  MIN  ACFT  FEO’P  TO  ACHIEVE 

56 

c 

GOAL/OB JECTIVE (ALL  COST  CONDITIONS) 

57 

c 

59 

c 

AVAVGI*)-AVG  FLY  HR/ AVA  U  AC  TT  /  DAY 

59 

c 

W/FULL  SUB  SOL  .-UN CONS TR  COST 

60 

c 

61 

c 

AV  AVG ( 5  >- A V  G  FLY  HR/ AVAIL  ACFT  /  0  AY 

62 

c 

W/NO  SUB  SOL.-UNCONSTF  COST. 

63 

c 

64 

c 

AVAVG(6)=AVG  FLY  HR/AVAIL  *CFT  /  DAY 

65 

c 

W/NO  SUB  SOL.-CONSTR  COST. 

66 

c 

67 

c 

AVM(I  ) 

120 

RE  AL 

AC  AVAILABILITY  CONSTRAINT  FOR  DAY  I 

6P 

c 

69 

c 

BC  (Jl 

300 

REAL 

BASE(RETAIL)  CONDEMNATION  PATE  OF  PART  J 

70 

71 

7  7 

c 

d 

<  RFR  ACTION  FAILURES  ’JUNKCD’  AT  RETAIL  LEVEL) 

c 

crcsr ji 

3  00 

real 

TOTAL  COST  ( IN I T  STKrO)  OF  REOMT  FOR  PART 

j 

77 

c 

USING  A  FULL  SUSTITUTION  PEPLACFMENT  POLICY 

74 

c 

WITH  UNCONSTRAINED  COST 

75 

c 

76 

c 

CFCS1 (J) 

300 

RE  AL 

RESIOUAL  COST  (INIT  STk^CUPR  STK)OF  REOMT 

77 

c 

TIN  EXCESS  OF  CURRFNT  STOCK)  E  OR 

7P 

c 

PART  J  USING  A  FULL  SUSTITUIION  REPLACEMENT 

79 

c 

POLICY  WITH  UN  CONSTRAINED  COST 

60 

c 

81 

c 

clossh  i 

120 

PE  AL 

CUMULATIVE  AC  LOST  TO  ATTRITION  THRU  DAY 

i 
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4-5.  CAVEATS.  If  the  day  and/or  parts  limits  are  increased,  the 
processing  time  required  for  a  PARCOM  execution  increases  by  at  least  the 
product  of  the  two  limit  multipliers,  i.e.,  doubling  the  day  limit  and  the 
part  limit  will  at  least  quadruple  processing  time.  In  the  PARCOM  User's 
Guide,  it  was  noted  that  the  calculation  of  entries  for  "no  substitution" 
in  the  output  "Cumulative  Total  Requirement  Cost  List"  and  the  output 
"Cumulative  Residual  Requirement  Cost  List"  consumes  most  of  the  processing 
time  required  for  a  PARCOM  run.  Therefore,  if  those  entries  are  not 
essential,  time-consuming  calculations  can  be  minimized  by  setting  IPRT4  = 
the  day  limit  in  record  set  4  of  the  Scenario  Input  Data  Base  as  described 
in  the  PARCOM  User's  Guide. 
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Table  4-1.  PARCOM  Arrays  with  a  Day  Limit  Dimension 

- 

Array 

Routine 

Array 

Routine 

Array 

Routine 

AC (120) 

Main 

EC0STZ(120) 

Main 

SNM(120,5) 

Main 

-  * 

ALR(120) 

Main 

FHNC(120) 

Main 

SUMB(120) 

Main 

ASURV(120) 

Main 

FHNZ(120) 

Main 

FHR(120) 

NCRNCT 

AVM(120) 

Main 

FHAPD(3,120) 

Main 

FHR(120) 

NCRNCR 

ALLOWS (120) 

COMMON 

FHR(120) 

Main 

SUMBZ(120) 

NCRNCT 

DC0STF(120) 

Main 

IFCD( 120) 

Main 

SUMBZ(120) 

NCRNCR 

DC0STN(120) 

Main 

RFC(120) 

Main 

SUMP (120) 

NCRNCR 

DC0STZ(120) 

Main 

RNC(120) 

Main 

FHR(120) 

SR 

EC0STF(120) 

Main 

SM ( 120 , 5 ) 

Main 

FHA(120 ) 

Main 

EC0STN(120) 

Main 

SNCM(120,5 ) 

Main 

RAV(120) 

Main 

4-4,  EXTENSION  OF  TOTAL  PARTS  LIMIT. 

In  the  PARCOM 

ve, sion  del i vered  by 

CAA,  34  single-subscript  arrays  are  defined  in  terms 

of  the  maximum  number 

of  parts  to  be  processed. 

The  current 

limit  is  300  parts.  Those 

arrays  of 

size  300  may  be  increased 

in  size  (through  user  reprograming)  to 

any  limit 

permitted  by  computer  memory.  The  arrays  associated 

with  the  parts  1 imit 

• 

and  the  routines  defining 

them  are  shown  in  Table  4- 

Table  4-2.  PARCOM  Arrays  with  a  Parts  Limit  Dimension 

t  l 

Array 

Routine 

Array 

Routine 

Array 

Routine 

8C(300) 

Main 

INC ( 300 ) 

Main 

BF(300) 

COMMON 

CFCS(300) 

Main 

ISTK ( 300 ) 

Main 

CF(300) 

COMMON 

CFCS1(300) 

Main 

QPA(300) 

Main 

DCY ( 300 ) 

COMMON 

' 

CNCS(300) 

Main 

RFCS(300) 

Main 

DF(300) 

COMMON 

. . ; 

CNCS1(300) 

Main 

RFCS1(300) 

Main 

DMD(300) 

COMMON 

CNMCS(300) 

Main 

RNMCS 1(300) 

Main 

IRC (300) 

COMMON 

1 

CNMCS1(300) 

Main 

SRMAX1(300) 

Main 

RNCS(300) 

COMMON 

‘  v  ■ 

COST (300) 

Main 

SRMAX2(300 ) 

Main 

RNCS 1(300) 

COMMON 

DC (300) 

Main 

STK ( 300 ) 

Main 

RNMCS (300) 

COMMON 

DMDT(300) 

Main 

ZNRT(300 ) 

Main 

S (300) 

COMMON 

FR(300) 

Main 

BCY(300) 

COMMON 

ADESC(300) 

Main 

AMSN(300) 

Main 

•*.  **-  •'«  •*«  •% 
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(5)  Assesses  the  combat  capability  of  the  unconstrained  cost  "full 
substitution"  and  "no  substitution"  solution  mixes. 

(6)  Computes  all  requirements  for  the  constrained  cost  cases. 

(7)  Assesses  the  combat  capability  of  the  constrained  cost  solution 
mixes. 

b.  Function  MAXC.  Function  MAXC  is  called  only  by  the  main  program. 

No  external  routines  are  called  by  it.  Function  MAXC  determines  the 
subscript  of  the  largest  (in  value)  member  of  an  array.  Repeated 
application  enables  ordering  of  an  array.  In  this  way,  the  main  program 
orders  all  part  types  in  order  of  decreasing  part  unit  cost.  Function  MAXC 
is  also  used  to  determine  the  smallest  of  the  input  "minimum  required 
aircraft  availability"  specif ications  (for  use  in  an  output  header). 

c.  Subroutine  NCRNCT.  Subroutine  NCRNCT  is  called  by  the  main  program 
and  calls  function  SR.  This  subroutine  computes  a  least  cost  total 
requirements  mix  (zero  initial  inventory)  for  the  unconstrained  cost  case 
with  a  "no  substitution"  policy. 

d.  Subroutine  NCRNCR.  Subroutine  NCRNCR  is  called  by  the  main  program 
and  calls  function  SR.  This  subroutine  computes  a  least  cost  residual 
requirements  mix  (add-on  to  specified  initial  inventory)  for  the 
unconstrained  cost  case  with  a  "no  substitution"  policy. 

e.  Function  SR.  Function  SR  is  called  by  the  main  program,  by 
subroutine  NCRNCT,  and  by  subroutine  NCRNCR.  It  calculates  the  cumulative 
net  demand  through  a  specified  day  for  a  specified  part  (based  on  a 
specified  flying  program)  prior  to  the  adjustment  (subtraction)  for  initial 
inventory. 

4-2.  ARRAY  STORAGE.  Definitions  and  sizes  of  PARCOM  array  variables  are 
given  in  the  comments  of  the  program  code  displayed  in  Appendix  A.  The 
types  of  arrays  are  local,  as  defined  by  DIMENSION  statements,  common,  as 
defined  by  unlabeled  COMMON,  and  character,  as  defined  by  CHARACTER 
declarations.  Character  variables  occupy  four  words  per  entry  in  PARCOM 
while  other  arrays  require  only  one  word  per  entry.  During  execution  on 
the  Sperry  1100/82  computer,  PARCOM  occupies  32,768  words  of  memory.  Of 
this,  18,076  words,  or  53  percent  of  total  requirements  are  associated  with 
arrays. 

4-3.  EXTENSION  OF  DAY  LIMIT.  In  the  PARCOM  version  delivered  by  CAA,  26 
single-subscript  arrays  and  4  double-subscript  arrays  are  defined  in  terms 
of  the  maximum  number  of  days  in  the  scenario.  The  current  limit  is  120 
days.  Those  arrays  of  size  120  may  be  increased  in  size  (through  user 
reprograming)  to  the  scenario  length  desired  insofar  as  computer  memory 
permits.  The  arrays  associated  with  the  day  limit,  their  dimensions,  and 
the  routines  defining  them  are  listed  in  Table  4-1. 


CHAPTER  4 


POTENTIAL  PROGRAM  MODIFICATION 


4-1.  MODULE  FUNCTIONS.  Figure  4-1  shows  the  main  and  subprogram  modules 
of  PARCOM.  The  subprograms  consist  of  two  subroutines  and  two  functions. 
A  summary  of  operational  purpose  is  given  below  for  each  module.  Details 
of  module  operations  can  be  read  in  the  commented  FORTRAN  code  for  PARCOM 
presented  in  Appendix  A. 


Function  MAXC 


Finds  subscript 
of  largest  member 
of  an  array 


Subroutine  NCRNCT 


Computes  no  sub 
unconstr  cost 
total  rqmt 


Main  f  Program 


Computes  fun  sub 
unconstr  cost 
rqmt,  constr  cost 
rqmt  and  capability 
assessments 


Subroutine  NCRNCR 

Computes  no  sub 
unconstr  cost 
residual  rqmt 

i 


Function 


SR 


Computes 
cumulative  net 
demand  for  part 


Figure  4-1.  PARCOM  Subprogram  Modules 


a.  Main  Program.  The  PARCOM  main  program: 

(1)  Reads  in  all  part  and  scenario  data. 

(2)  Computes  all  requirements  and  costs  for  unconstrained  cost  cases 
with  full  substitution. 

(3)  Computes  all  requirements  and  costs  for  unconstrained  cost  cases 
with  a  "NMCS  =  0"  policy. 

(4)  Calls  subroutines  NCRNCT  and  NCRNCR  to  obtain  requirements  and 
costs  for  unconstrained  cost  cases  with  a  "no  substitution"  policy.  Calls 
the  functions  MAXC  and  SR  for  reasons  discussed  later. 


g.  No  Stochastic  Results.  All  PARCOM  results  are  "expected  value." 
Neither  input  nor  results  have  variable  probabilistic  aspects  (e.g., 
confidence  levels).  Safety  levels  would  have  to  be  treated  separately  as 
an  add-on  to  PARCOM  quantities.  However,  use  of  expected  values  is 
meaningful  for  comparisons  and  parametric  evaluations.  Methodology  for 
incorporating  stochastic  considerations  into  PARCOM  would  be  complex. 
Conversion  of  the  model  into  a  stochastic  simulation  could  entail  high  risk 
for  an  uncertain  payoff. 
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availabilities  are  determined.  At  times,  however,  it  is  also  desirable  to 
be  able  to  assess  the  degree  to  which  an  aircraft  fleet,  with  its  current 
or  some  other  starting  inventory  (and  no  add-ons),  can  meet  specified 
flying  or  availability  goals.  This  can  be  done  for  the  "no  substitution" 
policy  by  running  that  inventory  in  a  requirements  mode  with  a  constrained 
cost  limit  of  zero  (so  that  no  parts  will  be  added).  In  that  case,  the 
full  complement  of  assessment  outputs  is  available.  With  "full  sub¬ 
stitution",  however,  only  the  expected  period  (consecutive  days  from  day  1) 
of  full  flying  hour  program  sustainability  is  assessable  for  current 
inventory.  This  is  accomplished  by  running  an  unconstrained  cost  "full 
substituton"  requirements  case  and  reading  from  the  cumulative  cost  output 
the  last  day  that  no  additional  costs  are  experienced. 

3-3.  CAVEATS  AND  LIMITATIONS.  The  principal  caveats  and  limitations  on 
the  PARCOM  Model,  as  applied  in  the  study,  are  discussed  below.  Program 
modification  and/or  restructuring  is  required  to  extend  model  capabilities 
beyond  the  cited  limits. 

a.  Number  of  Part  Types  Processed.  The  PARCOM  Model  version  demon¬ 
strated  herein  can  process  at  most  300  different  part  types.  Simple  (but 
memory  consuming)  modif ications  to  the  structure  of  the  program  can 
significantly  increase  this  capacity. 

b.  No  "Partial  Substitution".  PARCOM  currently  processes  only  "full 
substitution,"  "no  substitution,"  and  "NMCS  »  0"  policies.  There  is  no 
definitive  logic  yet  for  a  "partial  substitution"  policy.  In  light  of 
underlying  data  and  process  uncertainties,  the  bounds  of  costs  and  amounts 
reflected  in  the  "no  substitution"  and  "full  substitution"  solutions  may 
well  be  sufficient. 

c.  Incomplete  Assessment  of  "Full  Substitution"  Constrained  Cost 
Solutions.  Additional  programing  effort  might  enable  a  complete  assessment 
of  "full  substitution"  constrained  cost  solutions.  Currently  only  the  days 
of  sustainability  can  be  determined. 

d.  Only  Two  Centralized  Supply  Levels.  PARCOM  shares  the  Overview 
Model  "world  view"  of  a  retail  level  and  a  wholesale  level.  With  "full 
substitution",  each  level  has  full  cross-leveling  (lateral  transferability) 
of  parts. 

e.  No  Indenture  Levels.  Part  types  in  the  PARCOM  (and  Overview)  data 
base  are  nonoverlapping  modular  units,  i.e.,  no  part  is  a  subcomponent  of 
another  listed  part  type.  Therefore,  the  failures  and  repair  of  parts  are 
independent  of  each  other.  Use  of  indentured  data  is  not  processable  in 
PARCOM. 


f.  No  Direct  Maintenance  Modeling.  As  with  Overview,  PARCOM  treats 
maintenance  only  indirectly,  by  incorporation  in  the  repair  time  or  by 
using  an  aircraft  deployment/attrition  data  base  which  is  adjusted  for 
aircraft  down  ("lost")  due  to  maintenance  constraints.  Such  adjustments 
could  be  based  on  results  of  a  separate  high-resolution  simulation  model 
which  previously  processed  a  "slice"  of  the  scenario. 
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CHAPTER  3 


OPERATIONAL  CONSIDERATIONS  AND  CAVEATS 


3-1.  CASE  OBJECTIVES.  The  user  can  specify  a  flying  hour  objective  in 
conjunction  with  an  aircraft  availability  objective.  For  each  of  these, 
one  of  two  subobjectives  is  selected.  The  associated  case  types  are  noted 
below. 

a.  Maximizing  Cumulative  Flying  Hours  Achieved.  This  flying  hour 
objective  is  always  operating  when  running  a  constrained  cost  case.  It 
entails  the  direct  determination  of  the  parts  mix  which  will  yield  the 
greatest  number  of  achieved  flying  hours  for  a  specified  cost  limit.  The 
flying  hours  achieved  will  be  less  than  the  desired  flying  hour  program  if 
the  cost  limit  is  less  than  the  cost  of  the  unconstrained  cost  solution 
mix. 

b.  Maximizing  Consecutive  Daily  Program  Flying  Hours  Achieved.  This 
flying  hour  objective  is  relevant  only  to  constrained  cost  cases  since,  for 
unconstrained  cost  cases,  achieved  flying  hours  =  program  flying  hours. 
Obtaining  a  solution  with  this  objective  is  a  two-stage  process.  First, 
the  user  runs  PARCOM  in  an  unconstrained  cost  mode  for  the  full  wartime 
period.  The  output  list  from  that  run  shows,  for  each  day,  the  cumulative 
cost  of  the  add-on  parts  that  would  have  been  required  if  the  war  had  been 
truncated  at  that  day.  D,  the  last  day  on  that  list  for  which  the 
associated  cost  is  less  than  or  equal  to  the  "cost  limit"  of  the  con¬ 
strained  cost  case,  is  then  the  maximum  number  of  consecutive  days  of  100 
percent  flying  program  sustainability  with  "cost  limit"  spares  dollars. 
Next,  to  get  the  solution  mix  associated  with  D,  PARCOM  is  rerun,  in  the 
unconstrained  cost  mode,  with  a  truncated  "war"  of  D  days  length. 

c.  Minimum  Specified  Daily  Aircraft  Availability.  This  objective  is  in 
addition  to  any  flying  hour  objective  and  is  operative  in  all  cases.  The 
availability  objective  may  increase  the  demand  for  available  aircraft 
beyond  those  required  to  achieve  the  flying  program.  The  input  avail¬ 
ability  constraints  are,  as  described  previously,  used  to  calculate  daily 
"allowed  NMCS  aircraft",  which,  in  turn,  is  used  in  all  case  calculations. 

d.  No  Specified  Aircraft  Availability.  PARCOM  must  always  read  in 
values  for  minimum  daily  aircraft  availability  objectives.  However, 
entering  blank  or  zero  equates  to  not  specifying  an  availability  objective. 

3-2.  CAPABILITY  ASSESSMENT.  Normally,  PARCOM  capability  assessments  are 
performed  when  add-on  requirements  are  determined  for  both  unconstrained 
and  constrained  cost  cases.  In  the  unconstrained  cost  cases,  flying  hour 
and  availability  goals  are  fully  met,  so  the  assessed  achievements  are 
simply  the  same  as  the  goals.  However,  average  availability  over  the 
course  of  the  war,  which  cannot  be  input  as  a  goal,  is  also  determined. 

For  constrained  cost  cases  days  of  sustainability,  fraction  of  daily  and 
total  flying  hour  program  achieved,  and  daily  and  average  aircraft 
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FIxFO  OPTION  (0:0MIT  ,1=D0I  TO  PRINT  REQUIREMENTS 
LISTS  FOR  CONSTfl  COST  ’TOTAL  BUY'  SOLUTION 
(BASED  ON  COST  LIMITr  VALUE  OF  CURR  1NV* 
INPUT  COST  LIMIT  APPLITO  TO  INIT  STK=0) 

FIXED  OPTION  (0  =  OMIT  ,1=00)  TO  PRINT  REQUIREMENTS 
LISTS  TOR  CONS  TR  COST  ’APD-ON  BUY*  SOLUTION 
(BASED  ON  INPUT  COST  LIMIT  APPLIED  TO 
INIT  STK=CURR  1NV1 

FIXED  OPTION  (0=0HIT  ,1=00)  TO  PRINT  TOTAL 

(INIT  STK  rOl  CUMULATIVE  (BY  0AY1  RQMNTS 
FOP  SELECTED  ITEMS  (SEE  IM5EL , SM ( I , J1 , 

SNCM (I  ,JI  , S NH ( I , J)  ) 

FIXED  OPTION  CD=OHIT  ,1=00)  TO  DO  CONSTP  COST  CASE 

FIXFO  OPTION  (0=OMIT  ,1=001  TO  PRINT  SCENARIO 

DATA  BASE  SUMMARY  OUTPUT  LIST 


FIXED  TNTERVALIOAYS)  AT  WHICH  ‘CUMULATIVE  RQMNTS 

COST  THRU  0  A  Y  N’  APE  CALCULATED  FOP  ‘NO  SUB* 
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RNMCS1  (3001  , 
SRMAX  !  ( 300  >  , 
ZLOSS  (61  )  , 


ASUR V ( 120!  , 
CFCS< 300), 
CNCSI (  300  I  , 
DC ( 300  )  , 

OMPT I  3001  , 
FHA ( 120!  , 
FHR( 120! , 
INC( 300) , 
NFHI61 ), 
RFCS1 t  3001  , 
SM  ( 1  20 ,5  ! , 
SRMaX2(300  I  , 
ZNP1 (300) 


(ISTK.INC),  I SRMA  XI, CFCS  )  ,  ( SRMA Y2  ,C NCS )  , 
(BC.RFCS11,  (OCOSTF.FHA  J,  (PCOS TN  ,FHNC )  , 

(al«,rfc  I 

9CY ( TOO  1  ,  BE  1  300  ),  CFI3P0I, 

0F(3n0),  OMOI300!,  TRf(300), 


» 


i 


» 


I 
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4  9? 
993 
4  90 
495 
4  96 
4  97 

4  90 

499 

5  on 

5  01 
SO? 
507 
504 
5C5 
5C6 
507 

500 

509 

510 

511 
517 
517 

514 

515 

516 
5  17 
SIR 
519 
5  20 
521 
52? 

523 

524 

525 
5  26 

527 

528 
5  2° 
5  30 

531 

532 

533 
5  34 
535 
5  36 
5  37 

538 

539 

540 

541 
54? 

543 

544 

545 

546 

547 
540 

549 

550 

551 
55? 

553 

554 

555 

556 

557 
5  50 

559 
5  60 

561 

562 

563 

564 

565 
S  66 
567 

560 
569 
5  70 
571 
577 
577 


C 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


«  RNCSI  3001  ,  RNCS1(300),  RNMCSI300),  SI  3001 

C  HA  R  AC  T  T  R*  1  6 

♦  ADESCI300),  AOSC,  AM  SN  C  700  >  *  CASt, 

♦  RAVI1201,  ?1 

00  100  1=1,61 

1 0  AY  I T I =0 
AVMI  I  1=0. 

NACI I  1=0 
NF  HI  I  1=0 
ZLOSSII 1=0 
100  AM ( I i:0, 

ZZ  =  0. 


RCAD  ICARD  IMAGE  10  RDER  SHIP  TIM,.  OFfSET.FLY  HR  CONVERGENCE  FACTOR 
ANO  PART  ESSENTIALITY  THRESHOLD 


READ  (  11,97001  AOOOST.C ON VF  , I E SS 
NP  =  0 

THIS  SECTION  RE  AOS ( 1 02  CHAR  RECORDS  ON  LOGICAL  UNIT  111  THE  PARTS 
DATA  BASE.  OATA  FOR  EACH  PART  ARE  CONTAINED  IN  SFTS  OF  1?  CONSECUTIVE 
RECORDSIONLY  3  OF  WHICH  ARE  READ!.  INIT  AIALLY  SKIP  3  RECOROS  WHICH 
HEAD  THE  FILE  BUT  ARE  NOT  PART  OF  ANY  ’PART  DATA  SET  * . 

PC  AO  (IT, 98(10 
1=0 

200  READ  (  10,9900,END=600I  Z1  »Z?,Z3,Z4,Z5,Z6,Z7  ,Z8,?9,IES,INIT 
SKIP  3  RECORDS 
READ  I  10, 98 00, ENO =6 001 

READ  QUANTITY  PER  APPLICATION 
READ  (IT, 10000, EN0=6C0I  IOPA 

PE  AO  PART  DESCRIPTION, THEN  SKIP  6  RECORDS. THEN  SCREEN  To  PROCESS  ONLY 
PARTS  WITHIN  ESSENTIALITY  THRESHOLD 

READ  ( 10, 10100, EN0  =  60C  1  AOSC 
IF  (IES.GT.IESS1  GO  TO  400 


COMPUTE  TOTAL  OEPOT  CYCLE  TIME. IN  DOING  SO  ADJUST  INPUT 
OST  BY  AOOOST 

ZX0=2.9?3«Z7*2.*A000ST 
Z?C  =  Z2 / 100 . 

Z4F  =  24/1000000. 

ZSN=ZS/100. 

zioq=iopa 

Z8B=Z8/100. 

Z90=Z9/100. 

IF  (MOD!NP»I,SO!.NE.OJ  CO  TO  300 
WRITE  (6,10200) 

WRITE  (6,10300) 

WRITE  (6,10400) 

WRITE  (6,10500) 

SCREEN  TO  PROCESS  ONLY  PARTS  WITH  NONZERO  FAILURT  PATES.  COUNT  ALL 
P ART S ( I  NOE Yr X 1  .  ALWAYS  PRINT  A  PART  DATA  RECORD  EOP  EVERY  INPUT  PART, 
BUT  CHECK  IF  FART  HAS  A  NON-ZERO  FAILURE  RATE  OR  IS  ’ NONE SSE N T I AL •  . 

IF  SO, OMIT  ’PART  NR* (NP1, OTHERWISE  PRINT  THE  PART  NR  TOO. 

300  IF  (Z4 .GE. .0000001 )  GO  TO  500 

400  WRITE  (6,10600)  Z1,ADSC,Z2C,Z3,Z4F,75N,76,ZY0,ZT,Z8P,.?90,?10Q,IES 
1  =  1  ♦  1 
GO  TO  200 
500  NP=NP*1 

WRITE  (6, 10700)  NP,Z1,ADSC,Z2C,73,Z4F,Z5N,Z6,7XD,77,Z0E»Z9D,Z)QO*I 
♦ES.INIT 
AMSN (NF )=Z1 
COST INP 1=72C 
FR (NP)=74F 
Z NR  T (NP  )  =  Z5N 
BCYINP  |=Z6 
OCY(Nr)=ZXO 
ISTK(NPI=INIT 
BC (NP) =Z8B 
DC ( NP) =790 
QPA(,NP  )=Z10Q 
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1  •  -  .  •  «  •  <. •  •  •  .  • 


ADCSCINPI =ADSC 
GO  TO  2TO 
600  TI=NP*I 


PRINT  T HE  TOTAL  NR  OF  PARTS  INPUT  (NP»T)  ANO  THE  TOTAL  NR  OF 
PARTS  TO  BE  PROCESSED! NPJ . 


WRITE  ( 6  »  1 0  800 1  II, NP 


READ  (CARP  IMAGE)  THE  REST  OF  THE  INPUT  FACTORS 
CARD  2-  CASE  ID 

CARO  3=  COST  LIMIT  , I  TER  ATI  ON  LIMIT 

CAPO  4  =  MAX  FLY  HR/AC/DAY, NR  OAYS  IN  WAR, OUTPUT  PRINT  OPTIONS 
FOR  A  VARIETY  OF  INPUTS  TP  FO LL OW  ,  RE  AD  ,  I N  SEQUENCE 
-NR  OF  ‘DAY  INTERVALS'  SPECIFIC 
-INITIAL  DAY  OF  EACH  'DAY  INTERVAL' 

-THE  STATUS(OF  INPUT  FACTOR)  AT  START  OF  EACH  'DAY  INTERVAL* 
THEREAFTER  ,  SET  STATUS  VALUE  FOR  EACH  DAY  OF  INT  ER  V  AL  (  =  I  til  TI  AL  VALUE) 


READ  (11,10900)  CASE 

READ  (11,11000)  CLNCR, LIMIT 

RE AO  (11,11100)  FHM,NW«IOPT1,IOPT2,IOPT3,IOPT4,IOPT5,IOPT6,IPRT, 
♦  IPRT  4 

IF  ( IPRT<t  .LE.  0)  IPRT4=1 


FOLLOWING  SEOUENCF  SETS  CUMUL  NR  ACFT  DEPLO YE 0 ( E ACH  DAY) 


READ  (11,11200)  NACOEP 
REAO  (11,11200)  (IOAY(I), 1=1, NACOEP) 
RC  AD  (  11,11200)  INACIIl, 1=1, NACOEP) 
DO  800  1  =  1, NACOEP 
KlrlOAYd  ) 

K2=IDAY( 1*1 )— I 
IF  ( I  .EO.NACDEP )  K2  =  NW 
00  700  J  =  K1  , K  2 
AC ( J  )  =N AC ( I ) 


800  CONTINUE 


FOLLOWING  SrCUENCE  SETS  PROGRAM  FLYING  HRS ( EACH  DAY! 


READ  (11,11200)  NFHOAY 
READ  (11,11200)  (IDAY(I),I=1,NFHDAY) 
READ  (11,11200)  INFH(I) ,1=1, NFHOAY) 
DO  1000  1  =  1  .NFHOAY 
K1=I0AY(I ) 

K2=ICAY(I*1I-1 

IF  ( I  .EO. NFHOAY )  K2  =  NW 


900  FHR(J) 
1000  CONTINUC 


00  900  J=K1,K2 
F  HR ( J )  =  NF H ( I ) 


FOLLOWING  SECUENCE  SETS  NR  ACFT  LOS T l ATTR I T I  ON ) ON  EACH  DAY 


l  - 


REAO  (11,11200)  NLOAY 
READ  (11,11200)  (IOAY(I), 1=1, NLOAY) 
REAO  (11,11300)  (ZLPSS (II ,1=1 , NLOAY) 
00  1 2C0  1  =  1  ,NLD  AY 
K  1  =1 D  AY  ( I  ) 

K2=IPAY( 1*1 >-l 
IF  (  I.E1.NLPAY)  K  2=NW 
00  1100  J=K1,K2 
ALR( J  )  =  2L0SS(  I ) 


1200  CONTINUE 


FOLLOWING  SEQUENCE  SETS  INPUT  MIN  ACFT  AVAIL  REQMT  FOR 
EACH  DAY 


REAO  (11,11200)  NMDAY 

READ  (11,11200)  (IOAY(I), 1=1, NMDAY) 

REAO  (11,114001  ( AM (  I) ,1=  1  .NMDAY ) 

DO  1400  I=1,NM0AY 
K  1  =1  P  AY  (  I  I 
M2 =1  DAY (1*1  )-l 
IF  II.  EQ. NMDAY)  K2=NW 
DO  1  300  J  =K  1  ,  K  2 
0M0( J)=-AM(1) 


1400  CONTINUE 


DETERMINE  MIN  INPUT  0  A I L  Y  ACFT  AVAIL  RQMT (OVER  ALL  DAYS) 


IK :HAXC (NW ) 

X  A  V  =  -0  MO (IK ) 
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do  1  sno  i  =  i  ,nw 
ISnO  AVH( I ) =-0M0 (I  I 

READ  PART  NPSfSUB SCRIPTS)  OF  S  ITEMS  SELECTED  FOR  OUTPUT  OF 
CUMULATIVE  TOTALTINIT  S  TK =  0)  UNCO NSTR  COST  ROM!  ON  EACH  OAV 
READ  i 11.11200)  IHSEL 
READ  (11.1120(1)  (  IP  T(K  I  ,K=1  ,S  ) 

WRITE  (6,102001  CASF 
WRITE  (6,10300) 

WRITE  (6,12200) 

WRITE  (6,10500) 

PRINT  1NPUT-0RDERE0  LIST  CONTAINING  RANK, PART  NR ( FROM  INPUT), 

NSN ( S  TK  NR  OF  P ART )  ,0 E S CR I P T I  ON ,  UNIT  COST  ANO  INI!  STOCK  OF  PART 

DO  1510  K=1  ,NP 

IF  ( HOD(K ,51) .NE.C)  GO  TO  1510 
WRITE  (6,10200)  CASE 
WRITE  (6,10300) 

WRITE  (6,12200) 

WRITE  (6,10500) 

1510  WRITE  (6,12400)  K  ,K  , AM SV ( K ) , A PESC ( K ) , CO S T ( K ) , I STK (K  ) 

PRINT  SCENARIO  INPUT  DATA  BASE  SUMMARY  IF  IPRT  .NE.  0 

IF  (IPRT  .EO.  0 )  GO  TO  1545 
DO  1540  J  =  1  , N w 

IF  IMCOTJ.Sl)  .NE.  P  .ANO.  J  . GT .  1)G0  TO  1535 
WRITE  (6,10200)  CASE 
WRITE  (6,10210) 

WRITE  (6,10214)  AOOOST ,CONVF, LIMIT ,IESS 
WRITE  (6,10215)  FHM  ,  CL  NCR ,  I  PR  T  4 
WRITE  (6,10220) 

WRITE  (6,10222) 

1535  CALR=CAlft«ALR { J ) 

1540  WRITE  (6,10230)  J, AC ( J 1 , FUR ( J ) , A VM ( J ) , ALR ( J )  , C ALR 
1545  DO  1600  1=1 ,NP 
1600  STK(I)=ISTk (I) 

:  CALCULATE  TOTAL  VALUE  OF  CURR  INV  (FOR  PARTS  PROCESSED) 

ZCOSTrO. 

DO  1900  1=1 ,NR 

1900  2C0STz2C0ST»STK (I1*C0ST(I) 

WRITE  (6,10200)  CASE 
WRITE  (6,11900) 

WRITE  (6,12000)  ZCOST 
MirlPT ( 1) 

M2=IPT (2) 

M  3=1 PT ( 3) 

M 4  =  I PT  (4) 

H5=IPT (5) 

DO  2000  1=1 , NW 
OCOSTFI I ) =0 . 

OCOS  TZ  Cl) =0 . 

EC0STN(I1=0. 

EC05TZ(II=0. 

ECOSTF(I)rO. 

2000  DCOS  TN (  I ) =0  . 

no  2100  1  =  1  ,Nr 
7100  DMO ( I) =COST (I ) 

ORDER  PARTS  BY  OECR  UNIT  COST, SO  TRC(l)  IS  PART  NR(BASED  ON  INPUT 
OROER  )  OF  MOST  EXPENSIVE  ITEM 

00  zzrr  K  =  1  ,NP 
I R  C ( K  )= MAXC (NP) 

I I =1 RC( K I 
2200  0M0<  II  )=-l . 

WRITE  (6,10200)  CASE 
WRITE  (6,121P0) 

WRITE  (6,12200) 

WRITE  (6,10500) 

PRINT  CO  ST-RANK  EO  LIST  CONTAINING  RANK,P»RT  NPlrROM  INPUT), 

NSN ( S  TK  NR  OF  PART)  , D ES C R I PT I  ON  OF  PART,  AND  UNIT  COST  OF  PART 

00  2400  K  =1  ,NP 

IT  (MPOIK.SI) .NE.nl  GO  TO  2300 
WRITE  (6,10200)  CASE 
WRITE  (6,12100) 

WRITE  (6,122001 
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7  38 
739 

780 
7  8  1 
78? 
783 
788 
78? 

786 

787 

788 

789 
750 
7  S I 
75? 
753 
7  58 

755 

756 

757 

758 

759 

760 

761 

762 
76? 
768 

765 

766 

767 

768 
7  69 

770 

771 
77? 
7  7  ■* 
778 
775 
7  76 

777 

778 
7  79 
760 

781 
767 
783 
7  38 

785 

786 

787 

7  88 
76° 

790 

791 
79? 
793 
798 

795 

796 

797 

798 

799 

8  00 
8  Q  1 
8  C2 
603 
808 
80? 
806 
807 
608 
809 
8  10 
8  1  1 
8  1? 
8  17 
8  1« 
e  1? 
8  16 
0  17 
8  IP 
8  19 


WRITE  16,105001 
2300  II=IRC(K) 

2800  WRITE  (6,12800)  K , 1  I , A MSN (I  1 1  , ADESC ( 1 1 >  ,COS T ( T I ) , I S TK  1 1  1 
UR  1 1 C  16,  102001  CASE 
C 

C  CALC  MAX  NR  OF  NHCS  ACFT  ALLOUEO  EACH  0*Y  A  NO  SOURCE  OF 

C  THIS  LIMIT 

C 

CALR=C. 

00  2700  1=1  ,NU 

ASURV(I)=AC(I1-CALR 
XX =A MAXI ( 0. .ASURV  1 1 »  * C 1  .-AVMI I  1) 1 
Yr=AMAXI <  0. ,ASURV  CI» -FHPl 71/FHH1 
ALL0WP1I 1 =AMINI IXX.YYt 

IF  (ALLOWS!!)  .EO.YY)  RA  V 1  I  1  =  •  FLYING  HP  PROG* 

IF  (ALLOUB(I)  .EO.XX)  R  A  V ( T 1  =  •  AVAIL  CONSTRAIN* 

2700  CONTINUE 

TTFH=P. 000001 
C 

C  CALC  TOTAL  FLYING  HRS  IN  FULL  WAR  PROGRAM 

C 

00  2800  1  =  1  ,NU 

?eoo  ttfh=ttfh*fhr ti  i 

WRITE  (6,125001  TTFH 
C 

C  THRU  STMT  ? TOO  CALC  'FULL  SUB*  UNCONSTR  COST  PQ MN T S 1 RFC S I J 1  ,RF CS 11 J I  1 
C  FOR  T0TAL1INIT  STK  =  0  1  RQMNT  S  AND  RE S I  DUAL ( I N I T  STK=CURR  INV1R0MNTS 
C  FOR  ALL  PARTS 
C 

00  3100  J  =  1  ,NP 

CF(J)=FR( J)*QPAf J) 

BF(J)=(1.-BC(J1 1* ( 1.-2NRT ( J )  )  *CF ( J  ) 

OF (J)=C l.-OCf J) >*<ZNRTC Jl )*CF< Jl 
COMO  =0. 

SRMAX21 J1 =-999. 

SRMA  X 1 ( J1  =-999  . 

DO  3000  1=1  ,NU 

CCMD=SR(I,J,FHR  .COMO) 

XXX=CDMO— ALLOWB (I)*OPA{ J) 

SR 1=XXX-STK ( J  ) 

IF  (XXX.GE.SRMAXl(J))  SRM A  X 1 t J )  =  XXX 
IF  (SRI  .GE.SRMAX21 J)  )  SRM A X2 ( J ) =SP 1 
X1=AMAX1(0.,SRMAX1 (J)  ) 

C 

C  CALC  • COST  OF  CUMUL  (FULL  SUB1R0HNT5  THRU  DAY  I'FOR  T OT AL ( OCOS T F ( I  )  ) 

C  AND  FOR  RESIDUAL  POMNT  (ECOSTF(I)l  CASES 
C 

OCOSTFC I)=OCOSTF(I ) ♦ X 1 *C0  S  T I J ) 

ECOSTFJ I)=ECOSTF (I )»AMAX1 (0. ,X1 -STK  IJ) )*COST( J) 

C 

C  CALC  DAILY  UNCONSTR  COST  (FULL  SUP)  RQMNT  FOR  PARTS  SFLFCTEO 
C  FOR  OUTPUT  OF  I  NO I V  'CUMUL  RQMNT  THRU  DAY  I' 

C 

00  2900  M  =  1  , 1 MSEL 

IF  (J.NE. IPT(M)l  GO  TO  2900 
SM(T,M)=AMAX110.,5RMAX1(J)) 

2900  CONTINUE 

3 COO  CONTINUE 

RFCS(J)=AMAX1(0.,SRMAX1(J>) 

RFCS1 (J)=AMAX I (0. , SR MAX 2 (J) ) 

3100  CONTINUE 
C 

C  THRU  STMT  32  CALC  UNCONSTR  COST  'NMCS=0'  TOTALdNIT  STK=0) 

C  RQMNT  (RNHCS  (J)  I  AND  RES  IOU  AL  C  IN  TT  STK  =  CURR  TNV)  ROKNT  (RNMCSMJII 
C  FOP  each  rAPT.  ALSO  CALC  'CUMUL  COST  OF  ROMNT  THRU  PAY  I*  FOR 
C  TOTAL  ROMNT (DC0ST71  I )  )  AND  RESIDUAL  ROMNT  (ECOSTZtl)l 
C 

00  8000  J=t  ,NP 
CND=0. 

SRMAX21 J)=-999. 

SRMAXK  J)=-999. 

00  3900  I =1  ,N  V 

CN0=SR( I,J,FHR,CN0  ) 

SR2=CN0-STk(J) 

IT  (CNO.GE.SRMAXI* J) )  SPMAXI (J)  =  CNO 
IF  (SR2  .GE .SRMA X2( J)l  SRMAX2(JI=SR2 
X2  =  AM  AX  1  (0.  ,  S  RM  A  X 1  (  J)  ) 

R2=AMAX 1  CO. .SRM AX? I J)  ) 

0C05T2(T)=0 COST  711 )«X?*COST(J) 

EC  CST  Z ( I |=EC0S1 ?ll >«R?*COST (J) 

00  3eOO  M  =1  , 1  MS  EL 

IT  (J.NE.IPT(M)I  GO  TO  3800 
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SNMfl ,MI=AMAX 1 ID.,SRMAX1 I J) ) 

7600  CONTINUE 

7900  CONTINUE 

RNNCS (J)=AHAX1 (0.  ,SPM*X  H Jll 
RNHCS1CJI-AHAXI (0.,SRMAX2(J)J 
4  000  CONTINUE 

CALC  DAYS  FOR  WHICH  THE  'NO  SUB*  'CUMUL  COST  OF  RQMNT  THRU  0AY  I* 
WILL  BE  COMPUTED 


IF  fIPRT4.LE.0J  I  PR  T4-  1 
IF  IIPPT4.GT.NU)  IP  R  T4 -NU 
INST-NW/IPRT4 
IST=HU-IPRT4*INST*1 

THRU  STMT  3400  CALC  UNCONSTR  COST  'NO  SUP*  TOTAL  UNIT  STK=0> 

RQMNT  IRNCS  ( J)  )  FOR  EACH  PART  .  ALSO  CALC  ’CUMIJL  COST  OF  RQMNT 
THRU  DAY  I  •  (DCOSTNf I) J 

DO  3200  L  =  I ,NP 
3200  S(L)=0. 

NW  T  rNU ♦  1 

DO  3400  I=IST,NWT,IPRT4 
IF  (I.EO.l)  GO  TO  3400 

zi=r-i 

dcostniii 1=0 

CALL  NCRNCT  (II,FHR,NP) 

00  3300  J=1,NP 

DCOSTNf II IrOCOSTNf II )  «RNCS f J 1 *CPST I J) 

00  3300  M-l  .  I  MS  EL 

IF  (J.EO. IPTt MJ J  SNCMfU ,M)rRNCSf J) 

3300  CONTINUE 
3400  CONTINUE 

IF  (M0P(NU,IPPT41  ,E0.  0 J GO  TO  3310 
CALL  NCRNCT f NU ,FHR rNP ) 

DO  3320  J  =  1  ,NP 

OCOSTNiNU ):OC0STNI NW1 ♦RNCS I J I *C0 ST ( J ) 

DO  3320  Mrl.IMSEL 

IF  (J.CO.IPTfMII  SNCMfU  ,M|=RNCSIJl 
3320  CONTINUE 

THRU  STMT  3700  CALC  UNCONSTP  COST  ’NO  SUB*  RESIOUALUNIT  STK  =  CURR  INV) 
RCMNTIRNCS1 tJI )  FOR  EACH  PART  .  ALSO  CALC  *CUMUL  COST  OF  RQMNT 
THRU  DAY  I*  fECOSTNf II  I 


3310 
3  500 


3600 
3  70C 


3420 

3410 


00  3500  L-l  , NP 
SlLJ-STKfL) 

00  3700  iriST,NUT,IPRT4 
IF  fl.EO.lJ  GO  TO  3700 
11=1-1 

ECOSTNIII 1:0 

CALL  NCRNCR  t 1 1  *  F HR «  NP I 

DO  3600  J=1  ,NP 

ECOSTNf IT  J  =  ECOS  TNI  I T  I  «RNCS 1 t J) *COST ( J) 
CONTINUE 
CONTINUE 

IF  f MOOfNU, IPRT4 I  .EQ.  0  I  GO  TO  3410 
CALL  NCRNCR(NW,FHR,NP) 

DO  3420  jrj  f NP 

ECOSTNtNUJ;ECOSTNfNUI »RNCS1 f JJ4C0ST  fj) 
URITE  (6,102001  CASE 
TCNmCS=C. 

TCFCS=0. 

TCNCS=0. 

UCNCS=0  . 

UCFCS=0. 

UCNHCSrC. 


C 

C  FOR  EACH  PART  UNOTR  EACH  POLICY  WITH  UNCONSTR  COST, CALC  TOTAL  COST 
C  OF  THAT  PAFT(TYPE)  IN  1  HE  TOTAL  RQHT  SOLUTIONS  AND  IN  THE  RESIDUAL 
C  RFQHNT  SOLUTIONS. 

C  THEN  CALC  TOTAL  COST  ,OWEP  ALL  PARTS, OF  EACH  SOLUTION  UNDER  EACH 
C  POLICY. 

C 


00  4100  J=1,NP 

CNMCS  (J):COST(JI*RNMCS< J) 
CNMCSII J)=COST( JJARNMCSl 1 Jl 
CFCS I J):COSTt JJPRFCS  f Jt 
CFCS1  (JlrCOSTf  JJ4RFCSK  J) 
TCNMCS=TCNMCS«CNMCS( Jl 
UCNMCS=UCNHCS ♦CNMCS1 f J) 
UCFCS=UCFCS«CFCS1 (J) 
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1 

' 

90? 

TCFC5rlCFCS*CFC$( J) 

— 

90? 

CNCSI  J)=C0STI  JI4RNCS1  J) 

. 

9  09 

CNCSI <J)=COST CJI4PNCS11J1 

905 

UCNCS=UCNCS«CNCSI  (Jt 

.  * 

906 

ii 

100  TCNCS=TCNCS«CNCS(J) 

907 

c 

*'  -  - 

9  OR 

c 

PRINT  TOTAL  COSTIOVCR  ALL  PARTS)  OF  THE  TOT  AL ( I NI T  STK  =  F)  RQMNT 

909 

c 

SOLUTION  FOO  EACH  POLICY 

,* 

.* 

9  IT 

c 

afi 

911 

WRITE  16,10200)  CASE 

' 

we 

9  1? 

WRITE  16,12600) 

9  13 

WRITE  16,12700) 

914 

WRITE  16,12800)  TCNCS 

9  15 

WRITE  16,129001  TCFCS 

916 

WRITE  (6,130001  TCNMCS 

9  17 

c 

. 

9  IB 

c 

PRINT  TOTAL  COST! OVER  ALL  PARTS)  OF  THE  R ES  I  DU A L 1 I NI T  STK=CURR  INV  1 

9  19 

c 

PCHNT  SOLUTION  FOR  EACH  POLICY 

920 

c 

921 

WRITE  (6,10200)  CASE 

922 

WRITE  (6,13100) 

- 

923 

WRITE  (6,12700) 

I 

924 

WRITE  (6,12800)  UCNCS 

925 

WRITE  (6,12900)  UCFCS 

926 

WRITE  (6,13000)  UCNHC5 

927 

c 

9  26 

c 

CALC  COST  OF  RECUTRCO  CURRENT  I NVENT OR Y  ,  I  .E  .  THE  VALUE  OF  INVENTORY 

CXCLUOING  STOCKAGE  IN  EXCFSS  OF  THE  »NMCS=0*  RQMNT  FOR  EACH  PART. 

9  29 

c 

930 

c 

9  31 

SC0ST=0. 

932 

00  4200  I -1  ,NP 

TSTK=AMINl (STX( T)  .RNMCS(I)) 

• 

.-i « 

933 

( 

934 

4200  SCOS  T  =  SOO  S  T ♦TSTK4C05T1 I  ) 

935 

c 

936 

c 

CALC  CLNC-THE  VALUE  OF  •REFUNPEO*  CURR  INV  ♦  THF  INPUT  COST  LIMIT. 

9  37 

c 

THIS  NUMBFR  BECOMES  THE  COST  LIMIT  USED  TO  COMPUTE  •TOTALIINIT  STK=0> 

9  38 

c 

RQMNT  S '  IN  The  CONSTRAINED  COST  CASE. 

9  jo 

c 

940 

CLNC-CLNCR*  ZCOS  T 

941 

c 

94? 

c 

PRINT  SUMMARY  OF  CURRENT  INVENTORY  VALUE  ANO  COST  LIMITS  FOR  THE 

943 

c 

CONSTRAINED  COST  TOTAL  RQMNT  ANO  RES IOUA L ( I N I T  STKRCUR  TNV )  RQMNT  CASE 

1 

944 

c 

945 

WRITE  16,11900) 

946 

WRITE  16,13200) 

947 

WRITE  (6,13300)  CLNCR 

. 

948 

WRITE  (6,13400)  SCOST 

940 

WPITE  (6,13500)  CLNC 

950 

IF  (IOPT1.EQ.O)  GO  TO  4500 

951 

c 

952 

c 

PPINT  LIST  (IN  OPOEP  OF  CfCR  PART  UNIT  COST  )0F  TOTALIINTT  STk=0> 

953 

c 

UNCONSTRAINED  COST  ROMNTS  FOR  EACH  PART  UNDER  EACH  POLICY. 

f 

954 

c 

ALSO  CALC  FPAC  OF  TOTAL  R0MNT1ALL  PARTS)  REPRESENTED  PY  EACH  PART. 

955 

c 

956 

00  4400  1=1 ,NF 

957 

1 1 =1 PC( I ) 

9  SR 

IF  (MOOII-1 ,50) .NE.O)  GO  TO  4300 

9  59 

WRITC  (6,10200)  CASE 

960 

WRITE  (  6,  13600)  XAV 

. 

961 

WRITE  (6,10500) 

96? 

WRITE  (6,13700) 

96? 

WRITE  (6,10500) 

964 

WRITE  16,13800) 

) 

965 

WRITE  (6,10500) 

9  66 

4300  TC=100.*CNCS( III/ ( TO NCS ♦ .OOP 00 1 1 

967 

TA=100.*CNMCS (II) /(TCNMCS*. 000001) 

968 

TB=I0C.*CFCS(II  )  /  1  TCFCS*. 000001) 

969 

4400  WRITE  16,13900)  A  MS  N  1 1  I  >  .  A  DC  SC  (  1 1  )  ,RF  CS  (  1 1  1  ,C  FC  S  (  1 1  J  ,  TP  ,RNC  S  (  1 1  >  , 

970 

♦CNCS  III  ),TC,RN«1CS(II  ),CNMrs(II),TA 

971 

4500  IF  «I0PT2.E0.ni  GO  TO  4900 

•  . 

.  ■ 

97? 

c 

9  73 

c 

PRINT  LIST  (IN  ORDER  OF  DECR  PART  UNIT  COST  )0F  RESIDUAL 

9  74 

c 

UNCONSTRAINED  COST  RQMNT  S  FOR  EACH  TART  UNOTR  EACH  POLICY. 

) 

975 

c 

ALSO  CALC  FEAC  OF  TOTAL  RQMNTIALL  PARTS)  REPRESENTED  BY 

976 

c 

EACH  PART. 

9  77 

c 

978 

DO  4  70D  1=1  ,NP 

'  _* 

979 

1 1 =1  PC (  1) 

980 

IE  (M0D1I-1 .50I.NE.D 1  GO  TO  4600 

.*  , 

981 

WRITE  (6,10200)  CASE 

98? 

WRITE  (6,  14000)  XAV 

983 

WRITE  16,10500) 

i 

- 

A-14 

i 
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984 

985 

986 

987 

988 

989 

990 

991 
99? 

993 

994 
9  95 

996 

997 

998 

999 
000 
001 
002 
003 
004 
005 
006 
007 
008 
009 

om 

Oil 

012 

013 

0  14 
015 
016 
0  17 
018 
n  19 
020 
021 
022 
023 
024 
025 
026 
027 
0  28 
029 
0  30 
031 
0  32 
0  33 
034 
035 
036 
037 
0  38 
039 
040 
041 
042 
0  4  3 
044 
045 
046 
047 
048 
049 

0  50 
051 
05? 
0  53 

0  54 
055 
056 
0ST 
058 
0  5° 
Obr 
061 
06? 
06T 
C04 
C  6C 


WRITF  16,137001 
WRITE  16,10500) 

WRITE  16,138001 
WRITE  16,10500) 

4  600  TC  =  1 0P.9CNCS1  ( IT) /(UCNC S' .0000  01  ) 

T A=1 PP.9CNMCS 1 1  II  )/l UCNMC S' .000001  ) 

TB=1CP.4CFCS1  III1/1UCFCS*. 000001  ) 

4  700  WRITE  16,  139001  A  MS N 1 1 1 ) , 40 E SC  1 1 1 ) , RF C S  1  1 1 1 ) , CFOS  1 1 1 1 ) , T B , 

♦  RNCSHIII  ,CNCSI  (II 1  ,TC  .RNHCSl  III  l.CNMCS  1111  ),TA 
C 

C  WRITE  ONTO  UNIT  12  A  'CURRENT  INVENTORY*  FOR  EACH  PART  BASFO 
C  ON  THE  PESITUAL  'NO  SUB*  ROHNT  BEING  'BOUGHT'  AND  APDEQ  TO  CUPR  INV 
C 

00  4800  J  =  1  ,NP 

4800  INC IJ) =  RNCS  11J) ♦  S  TK  1J) ♦  .5 

WRITE  (12,11200)  (INC1J1 , j=l,NP> 

4900  KNT  =  1 
5000  00  5200  L=1,NV 
DO  5 1 PO  M  =  l,3 
5100  FHPAPDIM.L )=0 . 

52ro  SUNS  (0=0. 

00  5300  1=1,6 
5300  AVAVG1 I  )  =0 • 

00  540C  J=1  ,N P 
54C0  DHD 1 J) =P. 

T  SUR V=C . 

IN0  =  0 
C 

C  THRU  STHT  6100  CALC  THE  DAILY  ACFT  AVAIL  ANO  FLY  HRS/ACFT/OAY  RESULTING 
C  when  THE  'FULL  SUR'  AND  THE  'NO  SUB*  UNCONSTR  COST  PQMNTS  are  '  B0U6H  T  ’ 

c  and  stockeo.  these  stmts  will  sr  executed  twice ,oncfiknt=i >  fcr 
C  THE  'TOTALIINIT  stk=oi  RQMNT  •  CASE  and  ONCF  for  the  residual 
C  UNIT  STKrCURR  INV)  CASE.  FOR  CAPABILITY  ASSESSMENT,  residual  romnts 
C  ARE  AOOEO  TO  CURRENT  INVENTORY. 

c 

T  AV  =  0. 

TAV1=0. 

00  6100  1=1 ,NW 

Bmax=c. 

DO  6CT0  K=1,NP 
II =IRC 1 K 1 
X  =  OMD 1 1  I) 

OHO  1 1 1 ) =S P 1 r,II  , FH R , X  ) 

ZP  =PNCS (II) 

IF  (KNT.E0.2)  ZP=RNCS1(TI)'STK(II) 

SUMP! I  I =SUM8 I  I) *AMAX1  (0.,rM0(II ) -ZP  ) 

AUNCS  =  A  SURV 1  I )  — SUMB 1 1  ) 

IF  (AUNCS. LT. .001)  AUNCS=0. 

FHPAPOl 2,1  I =AMIN1(FHM ,FKR ( I J / 1 AUNCS ♦ .0 l ) ) 

Z?=iUNC$ 

AUNCS=AUNCS/( ASURV II 1 '.00001 ) 

ZP=PFCS(II1 

IF  (KNT.E0.2I  ZP=RFCS 1 1  II )«STK (II ) 

B0FCS  =  ( OKO I  II  )-?P) /OP  A ( II ) 

IF  (BOFCS.LE  .0.  )  B OF C S  =0. 

ZH  A  X  =  AM  AX  KBMAX.BOFCSI 
IF  (ZMAX.GT . B  MA  X )  BMAX  =  ZMAX 
AUFCS=ASURV ( I  l-BPAX 
IF  (AUFCS.LT.O.  )  A  UFC  S=0. 

FHPAPOl l,I)=AMINl(FHM,FHR(I)/IAUFCS*.Ol )l 
ZZ  =  AUFC  S 

AUFCS=AUFCS/( ASURV (II '.00001 ) 

Z  =  ALLOWB( I) RQPA  (II  ) 

6000  CONTINUE 

RNC( I  )=AUNCS 
RFC! I  I  =  A UF CS 
TAV  =  TA V'RFC ( I  I  *  A  S  UR  V ( I  I 
T AV1=T AVI 'RNC ( I  19 ASURV I  1 1 
6100  CONTINUE 
C 

C  PRINT  THE  DAILY  ACFT  AVAIL  ANO  FLY  HRS/ACFT/DAY  RESULTING 
C  WHEN  THE  'FULL  SUB’  ANO  THE  'NO  SUB’  UNCONS  T9  COST  PQMNTS  ARE  'BOUGHT' 

C  ANO  STOCKEO. 

C 

00  63nO  1  =  1,  NW 

A  X  =  1  .-( ALLOWS (I )/ (ASURV (I)' .000001  ) ) 

IF  (M 00(1-1 ,50) ,NF .HI  GO  TO  b200 
WRITE  (6,10200)  CASE 
WRITE  (6,147001 

■  IF  (KNT.EC.l)  WRITE  (6,14100) 

IF  (KNT.EC.2)  WRITE  (6,14200) 

WRITT  (6,105001 


A_  1  E 
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WRITE  (6,198001 

ur irr  (6, losooi 

WRITE  (  6  t  19900  I 
WRITE  (6,15000) 

WRITE  (6,105001 
6200  TSURV=ISURV'ASUPV (1) 

AVAVGd  )  =  AVAVG(  1 1  «RFC(I  )*ASURV(I  ) 

AVAVGd  >=AVAVG(  21 'RNC1I )*ASURV ( I ) 

AVAVG (3)=AVAVG ( 3) «AX*ASURV( 1 1 

AVAVG(9)=AVAVG(8)  'FHP  APO (  1,1)  *RFC  (  I)*ASURV(  7  >  /(  TA  V*  .POO  !) 

AV AVG (S)=AVAVG(5>  'FHP AP  0 ( 2, 1 )*RNC ( 1  )*  ASURV  1  I ) / ( T A  V 1 ♦ . 000 1  > 

6300  WRITE  (6,15100)  I  ,RFC ( I ) , RNC ( I  1 , A X ,R A V (  I  )  ,  A VH  ( I  I  , FH PAPO ( 1 , 1 ) , 
♦FHPAPC(2,I) ,1 
00  6900  K-l ,3 

6600  AVAVG(K)=AVAVG(K)/T SUR V 

WRITE  (6,15200)  ( A V AVG ( K ) ,K =1 , 5 ) 

KNT=KN T  *1 

IF  (KNT.LE.2)  GO  TO  5000 
IF  (IOPTS.EQ.O)  GO  TO  6600 

PRINT  'CUMULATIVE  TOTALdNIT  STK=0>  ROMNTS  THRU  DAY  I'  FOP  THE 
5  SELECTED  PARTS  (SEE  IPT(J)I 

DO  6500  1  =  1  ,NU 

IF  (M0D1I-1 ,50) .NE.O )  GO  TO  6500 
WRITE  16,10200  CASE 
WRITE  (6,15300) 

WRITE  (6,16100) 

WRITE  (6,10500) 

WRITE  (6,15600)  AMSN (Ml  )  ,  AHSN (M2 ) , AMSNIM3 ) , AMSN (MO > ,AMSN(M5 ) 
WRITE  (6,  156001  A0ESC1H 1 1 , AOE SC ( M2 ) , A DE SC ( H 3  )  , APE  SC t M 6 1 , AOE SC ( M5 
♦  ) 

WRITE  (6,15500) 

WRITE  (6,10500) 

6500  WRITE  (6,15600)  I  , ( SM ( I ,K ) , SNCM ( I ,K ) , SNM ( I , K )  ,K  =  1  ,5 ) 

PRINT  'CUMULATIVE  TOTALdNIT  STK  =  0)  RQMNTS  THRU  DAY  I*  (FULL  PQMNT) 

FOR  EACH  POLICY 

'  66C0  00  6700  1=1  ,NW 

IF  (M00( 1-1 ,50) .NE.OI  GO  TO  6700 
WRITE  (6,10200)  CASE 
WRITE  (6,15700) 

URITC  16,10500) 

WRITE  (6,15800) 

6700  WRITE  (6,15900)  I  ,0 COS TF ( T ) ,0C0S TN (I  )  , 0 COS T 7 ( I ) 

PRINT  ’CUMULATIVE  RESIDUAL (INIT  STK=CURR  INV)  ROMNTS  THRU  DAY  I' 

(FULL  RQHNT )  FOP  EACH  POLICY 

00  6800  1=1, NW 

IF  (M00(I-1 ,50) .NE.P )  GO  TO  6800 
WRITE  (6,10200)  CASE 
WRITE  16,16000) 

WRITE  (6,10500) 

WRITE  (6,15800) 

6800  WRITE  16,15900)  I  ,ECOS TF ( I ) ,E C OSTN ( I  ) ,E COS T ? ( I ) 

IF  (I0PT6.EQ.0)  GO  TO  17500 

:  REST  OF  PPOGRAM  PROCESSES  THE  CONSTRAINED  COST  CASE  ONLY. 

I  FIRST  CHECK  WHETHER  COST  LIMIT  OF  'TOTALdNIT  STK=0)  ROMNT' 

:  CASE(=*REFUNDED'  CURR  INV  'INPUT  COST  LIMIT)  EXCEEDS  THE  COST 
I  OF  THE  CORRCSP  UNCONSTR  COST  RQMNT  SOLUTION.  IF  SO, DO  ONLY 

:  the  rcsioual  unit  stk=cupr  invi  pqmnt  case. 

K  CT  =  0 

CNC=TCNCS-CLNC 
IF  (CNC.GT.O.)  GO  TO  6900 
WRITE  (6,10200)  CASE 
WPITE  (6,16100)  CLNC.TCNCS 
I OP  T  3=0 
GO  TO  7200 

CALC  CONSTR  COST  ’TOTAL  RCMNT  SOLUTION’  BY  REMOVING  THE  MOST 
EXPENSIVE  PARTS  FPOM  THE  UNCONS TR A INEO  COST  TOTAL  SOLUTION  UNTIL  THE 
COST  OF  THE  REMOVED  I TE MSr THE  COST  LIMIT  FOR  THC  'TOTAL  RCMNT*  CASE. 

'6900  00  710D  1=1 ,NP 
II=IPC( I) 

CNCS (II )=RNCS (II) *C0  S  T ( T I ) 

IF  ( CHCSl II I.LT.CNC)  GO  TO  TOGO 
RNCS (II )=RNCS( I  I ) -CNC/l COST ( II ) ) 
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1  4P 
1  49 
isn 
151 
1  5  2 

153 

154 

155 
1  56 
1ST 
ISA 
1  59 
1  60 
161 
1  6? 

163 

164 

165 
1166 
1167 
.  1  68 

I  1  69 

1 1 7n 

II  71 
- 1  72 
1173 

I  1  74 

I I  75 

1176 

1177 
1  1  7n 
1  1  79 
1  1  80 
1  1  81 
1182 
1137 

1  84 
185 
1  86 

187 

188 

189 

190 

191 
19? 
193 
1  94 

195 

196 
1  97 
1  98 

1  99 
200 
201 

2  02 
203 
2  04 
205 
2  06 

207 

208 

209 

210 
211 
21? 
213 
2  14 

215 

216 

217 

218 
2  1° 
220 
221 
222 

223 

224 

225 

226 

227 

228 
2  29 


CNCS (II  I =  RNCS III  I *C0ST(  II 1 
GO  TO  7200 
7000  RNCS(1I)=0. 

CNC-CNC -CMCSC II  1 
CNCS (II 1=0. 

7100  CONTINUE 
C 

C  CALC  C  ON  ST  K  COST  *RESIOUAl  RQMNT  SOLUTION*  BY  REMOVING  THT  MOST 
C  EXPENSIVE  PARTS  P POM  THE  UNCONSTRAINED  COST  RCSIOUAL  SOLUTION  UNTIL 
C  COST  OF  THC  REMOVED  ITEMS=TOT  AL  COST  OF  UNCONSTRAINED  COST  *N0  SUB* 
C 

C  SOLUTION  (TCNCS1  MINUS  THE  INPUT  COST  LIMIT  (CLNCP1 
C 

7200  CNC=UCNCS-CLNCR 

IF  (CNC.GT.0.1  GO  TO  7300 
WRITE  (6,102001  CASE 
WRITE  (6,162001  CLNCR, UCNCS 
KCT  =  2 

GO  TO  8300 
7300  DO  7500  1=1  ,NP 
1 1 =1 RC 1 1 1 

CNCS 1 (II1=RNCS1(1I1*C0ST(TI1 
IF  (CNCS1 (I  II .LT.CNC 1  GO  TO  7400 
RNCS 2 (II)rRNCSl (II l-CNC  /( COS  T I  II  I  I 
CNCS1 (II  I=RNCS1 (I  I  I* COST (  II  1 
GO  TO  7600 
7400  RNCS  1  (111=0. 

CNC=CNC-CNCS1 (III 
CNCSIIII1=0. 

7500  CONTINUE 

7600  IF  (I0PT3.EQ.0I  GO  TO  7900 
C 

C  PRINT, IN  ORDER  OF  OECR  PAPT  UNIT  COST.INOIV  PART  RQMNTS  FOR 
C  THE  CONSTRAINEO  COST  ’TOTAL  R OM NT ’  CASE. 

C 


501.NE.0I  GO  TO  7700 


00  7800  1  =  1  , NP 

IISIRCII1 

IF  (MCD(I-1,50I .NE.O 
WRITE  (6,102001  CASE 
WRITE  (6,163001  CLNC 
WRITE  (6,164001  CLNC 
WRITE  (6,105001 
WRITE  (6,137001 
WRITE  (6,105001 
WRITE  (6,138001 
WRITE  (6,105001 

7  700  TC  =  ICO.*CNCS( II 1/ (CLNC*  .000001  1 

7800  WRITC  (6,165001  A MSN ( I  I  I  , AOESC ( 1 1  1  , RNCS  1 1 1  I  ,C NCS ( 1 1 J , TC 
7900  IF  (I0PT4.EQ.01  GO  TO  8200 


C 

C  PRINT, IN  ORDER  OF  OECR  PART  UNIT  COST.INOIV  PART  RQMNTS  FOR 
C  THE  CONSTRAINED  COST  'RESIDUAL  RQMNT*  CASE. 

C 


00  8100  1  =  1  , NP 
1 1 =1 RC 1 1 1 

IF  IKOOII -1 ,501  .NT  .0  I  GO  TO  8000 

WRITE  (6,102001  CASE 

WRITE  (6,166001  CLNCR 

WRITE  (6,167001  CLNCR 

WRITE  (6,105001 

WRITE  (6,137001 

WRITE  (6,105001 

WRITE  (6,138001 

WRITE  (6,105001 

8  000  TC=100.*CNCS1  (1 1 1 /(CLNC*”  .000001  1 

8100  WRITE  (6,16500)  A MS N ( 1  1 1 , ADE S C ( 1 1  I , RNCS 1 ( 1 1  1 , CNCS 1 ( 1 1  1 , TC 
8200  KNT  =  1 


C 

C  IF  CONS  TR  COST  'TOTAL (INIT  STKrDl  R  CM  NT  ’  POMNT  WAS  NOT 

C  CALCULATED 

C  00  CAPABILITY  ASSESSMENT  FOP  RESIDUAL  RPMNT  CASE  ONLY. 

C 


8300  IF  (I0PT3.E0.0I  GO  TO  9500 


C 

C  THE  REST  OF  THE  PROGRAM  DOES  A  CAPABILITY  ASSESSMENT  FOR  THE 
C  CONSTRAINED  COST  CASE(S).I.E.  THE  PROGRAM  CALCULATES  DA  I L Y ( t A VE R AGE  I 
C  ACFT  AVAILABLE, FRACTION  PROGRAM  FLYING  HRS  FLOWN  ,AN0 
C  FLYING  HRS/AVAIL  ACFT/OAY  GIVEN  THAT 

C  ( 1  I T  HE  CONS  TR  COST  'TOTAL  UNIT  STK;0)  RQMNT’  IS  STOCKEO 

C  ANO  ( 2  I  THE  CONS  TR  COST  RES IDU A L ( U N I T  STKrCURR  INV)  IS  STOCKED 
C  ALONG  WITH  CURR  INV. 

C  TO  GENERATE  THESE, THE  FOLLOWING  STMTS  ARE  EXECUTED  TwICF.FOR 
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C  K'JTri  AMO  FOR  KNT=2.  T  Hf  FIRST  T  IMF  ( K  NT  =  1  )  THE  NEW  'CURR  INV  FOR 
C  EACH  PART  IS  SET:  THE  CONSTP  COST  'TOTAL  RQ  MN  T '  .  THE  SECOND  TIME, 

C  <KNT=2»  THE  NEW  'CURR  INV'  FOR  EACH  PART  IS  SET  :  OLO  'CURR  INV  ♦ 

C  THE  CONSTR  COST  RESIDUAL  RQmnT.  IN  EACH  CASE  ,THE  NEW  'CURR  INV  IS 
C  DENOTED  BY  PNCS(J). 

C 

SAGO  AVAVG(11=0. 

AVAVGl 6  ) :0 . 

TFHNC=0 . 

I  N0:0 

00  8500  1  =  1  ,NU 
SUMB  (I)=0. 

8SOO  CONTINUE 

DO  86n0  J=1 ,NP 
DHOT  f J)=0. 

8610  OHO ( J 1 :n. 

XX=A  SUR  V( 1  ) 

T  A V  =0 • 

DO  9200  1=1, NU 

IF  (I.GT.l)  XX=RNC(I-1 1 9ASURV(1-1 1 *AC CI1-AC CI-11 
FHA(  1 1  =  AMI*(  1  ( XXPFHH.FHR (1)1 
INOX  =G 

8700  DO  8800  K=1,NP 
XX  =0MD  T C  K 1 

DHO  T(K  »  =SR ( I,K,FHA,XX) 

ZPrOHOT (K I-RNCS (Kl 

SUHPl I ) =SUHB ( 1 1 *AMAX1  (0.,ZP) 

AU  NCS  =  A  SURV (I  I -SUMB ( I  1 
IF  (AUNCS.LT. .001 )  AUNCSrO. 

XX  =FHP (1 1 

YY=AUNCS«FHM 

FHNC(Il=AMINl(XX,Yri 

FH  PAPO ( 3 .11= AMI  Nit FHM ,FHR ( I ) / t  AUNC S ♦ .0 1 > 1 
FHNZJ I »=FHNC( 1 1 /(FHRl  I) *.000001 1 
AUNCS=AUNCS/<  ASURV ( I  I *.00001 > 

8800  CONTINUE 

Z=ABS (FHNCCIl — FHA (III 
INOX  =  INDX  *  1 

IF  ( IMDX.GE.L IMIT  .OP . (2/( TTFH*1. ) 1 .LE  .  ( CON V F /NU 1 . OR . I  NO* . GT . 30 ) 
♦  GO  TO  9000 

FHAI I  J=.5*(FHA(I) *FHNC till 
SUMB (I ) =0 • 

00  8900  J=1 ,NP 
8900  OHOT fJI=OMO(Jl 
GO  TO  8700 

9000  TFHNC  =  TFHNC*FHNCI  I  1 
00  9  iro  J  =  1,NP 
9100  DHOtJ  )=OMOT IJ 1 
TNCP : TNCO *Z 
RNC( I )=AUNCS 
T  AV  =  TAV*RNC  (I  I* ASUR V( I  1 
9200  CONTINUE 

Z=100.*TNCD/(TFHNC* .0011 
C 

C  PRINT  THE  OAILYttAVERAGE >  ACFT  AVAIL, FKAC  PGM  FLY  HRS 

C  FLOWN, ANO 

C  FLY  HRS/AVAIL  ACFT/OAY  FOR  T  HC  CONSTR  COST  CAPABILITY 

C  ASSESSMENT. 

C 

00  940G  1=1  ,NV 

AX=1 .-( ALLOWS  II)/ ( AS UPV (I )♦ .000001  1 J 
IF  IMODtI-ltSO.NC.nl  GO  TO  9300 
WRITE  (6,10200)  CASE 
WRITE  (6,14700) 

IF  (KNT.E0.1I  WRITE  (6,16400)  CLNC 
IF  (KNT.E0.2I  WRITE  (6,16700)  CLNCR 
WRITE  (6,10500) 

WRITE  (6,16900)  Z 
WRITE  (6,10500) 

WRITE  (6,17PG0> 

WRITE  (6,10500) 

WRITE  (6,17100) 

WRITE  (6,17200) 

WRITE  (6,10500) 

9  3ro  AVAVG  (1 »  =  AVAVGl 1 1 *KNC 1 1 1 • ASUR V t I > / T SU RV 

AV  AVG  (6 l  =  AVAVG( 6) *FHPAPP( 3,1  I *RNC ( I  1* ASUR VI  I ) /TAV 
9400  WRITE  (6,17300)  I  ,R NC ( 1 1 , A  X  ,  I , FHNZ 1 1  > ,F HP APO ( 3 , 1 ) 

F  NC  =  TF  Hf.'c/T  TFH 

WRITE  16,17430)  A VA VG I  1  I , A VA VG ( 1 1 ,FNC , A V AVG 1 6  I 
"SPO  IF  (KNT.EC.2.PR.I0PT4.EC.0.PR.KCT.EO.2)  GO  TO  17500 
00  96C0  1  =  1  ,NP 
9600  RNCStI )=STK ( I ) « RNCS 1 (I  I 


KNT:KNT«1 
GO  TO  8100 

5700  FORMAT  (2F5.2.I5) 

9800  FORMAT  < / / I 

9900  FORHAT  ( 2 X , A 1 5 , F 9  .0 , 5X , F 3  .0  ,F 5 . 0 , 5 F 3 . 0 , 1 1 , 1 PX  ,  I  * J 
10000  FORMAT  (12) 

10100  FORMAT  (A16, //////) 

10200  format  uhi  , jpx  , ’case:  *,ai6) 

10210  FORMAT  f / / , 1 0 X , * SCE NAP  1 0  INPUT  DATA  SUMMARY’) 

10211  FORMAT  t//,r»X,*OST  OFF  SFT  :•  ,F6  •  1  ,  ’  DAYS  DESIRED  CONVERGE CE , 

♦  F  5  •  3 , 3  X  ,  ’  H  A  X  ITERATIONS:’  ,13, 3X, ’MAX  E S S ENT  I A L IT Y :•  ,  1 3  1 

10215  FORMAT  (/ , 5  X ,  •  MAX  FLY  H RS /A CF T /O A Y :  •  FS . 1 , 9 X ,’ A DO -ON  COST  LI’, 
♦’HIT:’  ,F11.0,3X,’N0  SUB  CUM  ROMT  COST  CALC  CA’,13,’  DAYS’) 

1 0220  FORMAT  (/ , 1 3X , • CUM  A  CF  T  PROGRAH  MIN  RE  0  ACFT  CUM  A  CF  T •  ) 

10222  FORMAT  (7X,’0AY  OEPLOYEO  FLY  HRS  AVAIL  L0ST’,7X, 

♦’LOST’) 

10230  FORMAT  (5X  ,  15  ,F  1 1  .0  , F 1  0  .0  , F  1 0 . 2  ,  FB  .  1  , F  1  1  .  1  ) 

10300  FORMAT  (//.’  ITEMS  RANK  ORDERED  IN  NORMAL  INPUT  ORDTR  • ) 

10100  FORMAT  (/,’  PART’ ,5X, ’MSN’, 11X, ’DESCRIPTION’, 7X,’  COST  OST  FAIL’,’ 

♦  PT  NR  T  S  8CY  DCY  OR T  SCON  DCON  QPA  ESS  IN1T  5  T  K •  ) 

insoo  format  (/> 

10600  FORMAT  (9X,A16,2X,A16,Fe.0,F3.O,F8.6,F5.2,3FS.0,2F5.2,lX,F3.0,I5, 
♦I  10  I 

10  700  FORMAT  1 1 X , II ,1 X  ,  A 1 6 , 2X  , A  16  ,F 6 . 0  ,F 3. 0 ,F 8 .6 , F 5 .2 , 3F5 .0 , 2F5 .2 , 1 X , 

♦F  3 .0 ,1  5  ,1  10  ) 

10800  format  (•  total  nr  parts:*, ii,’  nr  used:’, id 

10900  FORMAT  (  1  X  ,  A  1  6  ) 
liroo  FORMAT  fix, F]«, 0,15) 

11100  FORMAT  (1X.F9.1  ,IS,5X,6I5,10X,2I5) 

11200  FORMAT  (1615) 

1  I  300  FORMAT  ( 1 6F 5 • 1 ) 

11100  FORMAT  fl6FS.2> 

11500  FORMAT  c/,5x, 'CURRENT  INVENTORY  FOR  EACH  PART  FPOCESSFO*) 

11600  TORMAT  l/,5X,’PART  NR/PART  NR/NR  PARTS  IN  TOTAL  INVENTORY ’ ) 

117C0  FORMAT  (’  RANK  PART  NP  RANK  PART  NR  RANK  PART  NR  RANK  PART” 

♦  NR  RANK  PART  NP  PANK  PART  NR • 1 
11C00  FORMAT  (2015) 

11900  FORMAT  (///) 

12000  FORMAT  f/,10X,’  COST  OF  CURRENT  INVENTORY-’ ,F11.0) 

12100  FORHAT  (/,’  ITEMS  RANK  OROEPEO  BY  DECREASING  PART  COST’) 

12200  FORMAT  (/,’  RANK  PA R T ’ , 8X , ’ MSN ’ , 18 X , ’DE SCR  I PT I ON • , 1 3x  ,  ’ COST  •  , 3X  , 

♦ ’  INI T  STK ’) 

12300  FORMAT  (/ ,5X, 'COST  RANKING/PART  NR/STOCK  NR/PART  OE SCR I P • , • /UN I T  C 
’OST (SI  ’  ) 

12100  FORMAT  (2  IS  ,5X , A  1 6 , 5X , A  1 6  ,2X , F 11 .0 , 1 X , I  8 ) 

12500  FORMAT  (2X,{  ‘.FlC.ll 

12600  FORMAT  r/,10X,’T0TAl(INIT  STK:  p)  COST  OF  POLICTES’l 
12700  FORMAT  (/,’  POLICY  TOT  COST’) 

12800  FORHAT  (/,*  NO  SUB’.FII.O) 

12900  FORMAT  (•  TULL  SUS*,Fl«.0) 

13000  FORHAT  (*  NHCS:0  *,F11.0> 

13100  FORMAT  ( / , 1 DX , • RE  SI DUA L ( I NI T  STKrCURR  STK)  COST  OF  POLICIES’) 

1  3200  FORMAT  (12X,’N0  SUB  S  T  •) 

1  3300  FORMAT  ( / , 7  X ,  *  COST  CONSTRAINT  OF  AODFO  BUY  =  ’,F11.01 
1 3 100  TORMAT  (/ , 1 X,  ’  COST  OF  CURRENT  PECUIREO  IN VEN T OPy: •  ,F 1 1  .0  1 
1  3500  FORMAT  (/ , 3X  ,  *  TOTAL  (CHRP  INV’ADDEO  BUYI  CO S T : • , F 1 1 . 0  ) 

1  3600  FORMAT  (/,’  TOTAL!  I  NIT  STK:0)  STK  RQMTS  BY  POLICY  **  MINIMUM  AC  A 
♦VAIL=* ,F5.2,’  **  PARTS  TN  OROFR  OF  DECREASING  UNIT  COST’) 

1  3700  FORMAT  (HX.’FULL  SU°  ST  •  ,  1  9X  , ’NO  SUBST  ’  ,  2  3  X  ,  ’NMC  S:  D  ’  ) 

138rO  FORMAT  ( 11X  , 'CART', 21X , ’ROmNT 1 ,7X, ’COST  XC0ST’,7X, ’ ROM NT  *,7X,’C0S 
♦T  tCCST’ ,7X, ’ROMNT  ’  ,7X, ’COST  tCOST’l 
1  3900  FORMAT  (2 X , A 1 6 , 2 X  , A  1 6, 3 ( F 8 . 1 , F 1 2  .0 ,F 6 . 2  , IX  )  ) 

HCOO  FORMAT  (/,’  R  E  S IDUA  L  ( I  NI  T  STKrCURR  STK)  STK  ROMT  BY  POLICY  1MINI’, 
♦’MUM  AC  AVAIL:* ,F5.2,*  «*  PARTS  IN  OPOER  OF  DECREASING  UNIT  COST’) 
1DC0  FORHAT  1/  / ,  30X ,  '  ***  CASES  ASSUME  TOTAL  (INIT  STKrO)  0  E  CM  T  S '  ,  ’  ARE  S 
♦TOCKEO  ***’) 

11200  FORMAT  C//.30X,’***  CASES  ASSUME  RES IOU ALf I  NX T  STK:CURR  STK)’,'  RE 
♦QMTS  APE  STOCKED  **«•) 

1 1 3C0  FORMAT  (/ ,27X , •  CPIT’,8X,’  AC  * , 6 X , • A C ’ , 27X , ’ A LL OWED  NET’,23X,’  P 

♦  ART  ’  ) 

11100  FORMAT  (•  POLICY  DAY  •  ,8X,  'PART  ’8X, ’DEPLOY  SURVIV  NMCS  AC',’ 

♦  AC  UP  AC  OA  BXOROERS  DEMA NO S *  ,  2 3X ,  •  NR’) 

11500  FORMAT  (•  NO  SUBST  •  ,1 5 ,1 X  ,  A  1 6 ,F 7 .0 , 3F 8 . 0 ,F 6 . 3  ,F8 . 1  ,F 8 . 1 , 6X  ,  A 1 6 , 1 6 

♦  I 


11600  TORMAT  (•  FULL  SUB 
♦  I 


•,I1,3X,A16,F7.0,3F8.C,F6.3,F8.0,F8.1t6X,A16,l6 


1«700  F0RMA7  f/,30X,’**  FORCE  CAPABILITY  GIVEN  THAT  THE  COMPUTED','  REO 
♦UIREMFNT  (FOR  EACH  P0LICY1  IS  STOCKED  **’) 


118C0  FORMAT  ( / , 9 X  ,  ’  A  IR CR AFT  A V  A I  LA B IL  I T Y • , 36 X  ,  • F t Y  HPS  /  ACFT  t  DAY’) 
119C0  FORMAT  ( 1 1 X , • FULL  •  , 9X , ’NO  ’  , 78 r ,  ’FULL  * , 8 X  ,  • NO  •  ) 

1 5000  FORMAT  ( 6 X ,  ’0  A Y • , 6 X  ,  'S UP '  .  8 X , ’ SUB  *  ,  ’  REO  AVAIL  AVAIL’,  ’  SOURCE’ 
♦,’  AVAIL* ,7X,’SUB’»  7X,*SU9’ »5X,*0AY’  I 
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1394  15100  rORMAT  <  5 X  ,  14 . 4  X  ,  F5 . 3 , 6 X  ,  Fs  . 3  , 6  X  ,  F  5 . 3  ,  A  1  6, F  5  .  ?  ,  2F  1 0 . 1  ,  I  8  I 

1  395  15200  FORMAT  C/,lX,*  AvfRAGEr  ♦, F 5 . 3 . 6 X , F 5 . 3  ,6 X  ,F 5 . 3  ,  ? 1 X  ,  ?r  1 0 . 1  1 

13  96  15300  FORMAT  l/,42X.*CUM  STOCK  REQUIRED  THROUGH  GIVEN  OAY’l 

1397  15400  rORMAT  t 8 X , 5 1 4 1 6 , 8 X 1) 

1  398  15500  FORMAT  (3X,*0AY  FULL  SB  NO  SUB  NMC S - 0  FULL  SB  NO  SUB’,*  NMCS=0 

1399  ♦  FULL  SB  NO  SUB  NMCS^O  FULL  SB  NO  SUB  NMCSpO*,*  FULL  SB  NO  SU 

14Q0  «B  NMC  S  70  •  I 

1  4  C 1  15600  FORMAT  (2 X , 14 , 1 5F 8 .  1  1 

1402  15700  FORMAT  </,12X,’CUM  TOTAUINIT  STK70I  COST  OF  BEO  THPU  GIVFN  DAY*! 

1403  1  5800  FORMAT  ( / ,6 X , *0  A Y  • , 3X , •  FULL  SUB  NO  SUB  NMCS=0*> 

1404  1  5900  FORMAT  <6 X,  1 3 ,3  X  ,  3F  1 1 .0  I 

1405  16000  FORMAT  (/,12X,*CUM  RESI0UAL1INIT  STKr  CURR  STK1  COST  OF  RFQ  THRU*, 

14  06  ♦  *  GIVEN  DAY  *1 

1407  16100  FORMAT  (/ / ,  10X ,  •  TO T AL ( CUR R I NV ♦ AODE 0  BUY  1  COST  CONSTRAINT^* ,FI2»0»* 

1408  ♦  EXCCFDS  UNCONSTRAINED  POLICY  CO S  T  =  *  , F  1 2  .  H  ) 

14C9  16200  FORMAT  ( / / .  I  OX,  •  ADD  ED  BUY  CON S T R A I  NT  =  * , F  12 . 0 ,  *  EXCEEDS  RESIDUAL  R 

1410  «e out  cost=*,fi2.o) 

1411  16300  FORMAT  (/ , 1  OX , *  TO TAL < I NI T  STK=0!  STK  PEO  BY  POLICY  **FULL  REQ  COS* 

1412  «,*T  LIMIT  =*,F12.0,*  **  PARTS  IN  ORDER  OF  OECP  UNIT  C0ST*1 

1413  16400  FORMAT  C//v30X,**«  TOTAL  (INIT  STKroiCOST  OF  *CURR  INVENTORY *,* ♦  A 

1414  *DDED  BUY*  (=*,F14.0,*  )  AVAIL  FOR  R E A LL OC A T ION •  I 

1415  16500  FORMAT  T2X  ,  A  1  6,  2X  ,  A  1  6,  30X  , F  8.  1  ,  F 1  2 . 0  ,  T  6 . 2 , 4  X  1 

14  16  16600  FORMAT  (/ ,  1  OX  ,  * RE  SI DUA L ( I NI T  STK=CU9R  STK  STK  REQ  «*  ADD-ON  COST* 

1417  ♦  ,*  LIMIT  =*,F12.Q,*  **  PARTS  IN  ORDER  OF  DECR  UNIT  C0ST*1 

1418  16700  FORMAT  (//,30X,***  CUPP  STK7INIT  STK,  ONLY  COST  OF  ADDED  BUY  <7*,F 

1419  ♦14. Qf*  1  IS  AVAIL  FOR  REALLOCATION*) 

1420  16900  FORMAT  (•  TOTAL  FLY  HRS  CONVFRGEO  TO’,*  WI THIN*  ,F7 .3 ,  *  PERCENT’! 

1421  1  7000  FORMAT  (9 X , • A IR C R AF T  A  V  A I L A B I L I T Y * , 4 1 X , *  FRAC  FLY  HR  ACH*,4X,*  F 

1427  *LY  HR/AC/DAY/*! 

1423  I  7 1 00  FORMAT  < 27X , ’NO  * , 4fl X  ,  ’ NO  * , 20X , *N0 *  I 

1424  1  72P0  FORMAT  U 6X , *  DA Y * , 7X , * SU8 * , 1 3X , *  RE Q  AVAIL* ,I6X, ’DAY*, 6X,*SU6*,19X, 

1425  ♦•SUB*!  I 

1426  17300  FORMAT  f  1 5X  ,  1 4 , 5X  ,F  5 . 3 , 1 7  X  ,  FS  .  3 , 1 S X  ,  I  4 , 4  X  , F 5 . 3 , 1 4 X  ,  T8 . 1  > 

1427  1  7400  FORMAT  </.*  AVERAGE  AV A IL  * ,  10 X , F 5 . 3 ,  1 7X  ,F5 . 3 ,  1  3X , * F R A C  FLY*,*  HRS 

142P  *0  ONE  7  * , F5 .3 ,  *  AVG  FH/AC/OAYr  *,F5.1! 

1420  1 7500  ENO 


I 

A-20 


■  A  -X  .Y  . 


\  m  »  > 


nor,  non  on  non  no  on  or.  on  no  or-,  nnonn  non  nn non noon  nnnn  nn  no  o  non  no  onoo  on  noon  non 
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SUBROUTINE  NCRNCT 


SUUROUTTNC  NCRNCI  (NO.FPR.NP) 

NAME:  NCRNCT  TYPE:  SUBROUTINE 

PURPOSE:  THE  NCRNCT  (NO  C A NN I B AC  1 7  A T I  ON  R E Q UI R E PEN T S - TO T A L 1  SUBROUTINE 
GCUERA1CS  A  LEAST  COST  TOTAL  UNIT  INV=C)  RQMNTS  Mix  OF  SPARE  PARTS 
NEE  PEP  TO  MEET  A  FLYINO  HR  PROGRAM  USING  A  *N0  SUBSTITUTION*  PART 
f  FPLACEHLNT  POLICY  AND  UNC 0 NS T R A  I N E G  COSTS. 


A  RGl'HC NTS  : 


NAME 

(DIMENSION 

TYPE 

GCSCR IPIION 

FHR  (I  ) 

120  PEAL 

SEE 

ARGUMENT  LIST  ABQVF 

NO 

1 

F  I  XED 

INPUT  APGUMENT  SET  TO  NR  DAYS 
DAY  1>  FOR  WHICH  FULL  R2MNT  IS 
COMPUTED 

(FROM 
TO  3 E 

FrlR  (  I  I 

120 

REAL 

PROGRAM  FLYING  HRS  REOUIRED  ON 
(SAMI  AS  FHR ( I 1  IN  HAIN  PROG) 

DAY 

I 

NP 

CALLED  BY: 

1 

MAIN  PROCRAM 

FIXED 

NR  OF  PART  TYPES  TREATED  (SAmF 
IN  MAIN  PROGRAM) 

AS 

NP 

CALLS 

-function  sr 

FILES  USED  :  NO  FILES  READ  OR  WRITTEN 
LOCAL  ARRAYS 


NAME 

DIMENSION 

TYPE 

DESCRIPTION 

SUMR2II J 

120 

PEAL 

CUMULATIVE  RAW (INIT  STK^O)  DEMANDS 
(ALL  PARTS)  THRU  DAY  I 

COhMON  BLOCK  (UNLABELEOI 

ENTRIES  USED  IN  THIS  ROUTINE 

NAME 

DIMENSION 

TYPE 

description 

ALLOW? ( I  1 

1  20 

PE  AL 

MAXIMUM  ALLOWABLE  NHCS  AC  On  DAY  1 
WILL  STILL  ALLO.  ACHIEVMENT  OF  CASE 
(FLY  HR  ANO  AVAILABILITY)  ON  DAY  I 

.  HI  FH 

Objective 

I  RC  (J  1 

3rio 

peal 

PART  NR  CORRESPONDING  TO  THE  O-TH  MOST 

COSTLY  PART  TYPE. (SEE  MAIN  PROGRAM  CCM"ON) 
THIS  ROUTINE  MUST  PROCESS  PARTS  IN  ORDER 

OF  DECREASING  UNIT  COST. 

R  NC  S  ( J  1 

3  CO 

FLAL 

TOTAL  REOMTUNIT  STK  =  0>  FOR  PART  J  USING  A 
’NO  SUBSTITUTION*  REPLACEMENT  POLICY 

WITH  UNCONSTRAINED  COST.  THIS  QUANTITY 
IS  CALCULATED  ONLY  IN  THIS  ROUTINE, ANP 
IS  PASED  THRU  COMMON  TO  THE  MAIN  PROG 


COMMON 

«  ALLOWS  (  ICC  1 

♦  CCY(3U0>, 

«  RNC  I  (  3C0  I  , 

DIMENSION 

♦  FHP(UO), 
SUM  R -G • 

DP  1UC  L -  1 , NO 
ICC  SUMBZ(L):U. 
TSUMG -U  • 


r-CY  (  ’DO  1  , 

OF (3001, 

PNC S 1 ( 3U0  )  , 

SUMb  7 i 120) 


li  F  (  300  , 

OMD (  3  00)  , 
RNMCS ( 300  )  , 


CF ( 3  0  G  )  i 
IRC( 30CJ , 
S  (  30 C  ) 


PROCESS  PARTS  IN  DECREASING  COST  ORDER 


A- 2 1 


00  3UC  K=1,NP 
IIzIRC (K I 
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INITIALIZE  PUMNT  TO  INITIAL  I  N V FN T OP Y ( : 0)  (S(II>:U) 

RNCS I  II I =SI III 
CDMP=C. 

OC  200  I  r  1 ,  NO 

CALC  CUMULATIVE  NET  OEMANO  ( CDM0 I  FOP  PART  II  THRU  DAY  I. 

THCN  CALC  ISUHPZI1M  TOTAL  NET  DEHANO  THRU  DAY  1  OVER  THE  K  HOST 
EXPENSIVE  PAPT  TYPES.  FINALLY  CALC  ( TSUMP  )  THE  NET  TOTAL  STOCKOUT 
(•HOLES’)  THRU  DAY  I  AND  SET  THE  ROHNT  FOR  PART  11=  THE  DIFFERENCE 
BETWEEN  THT  NET  TOTAL  STOCKOUT  AND  THE  ALLOWABLE  STOCKOUT ( ALLOWB(i)) 
THIS  CALC  IMPLICITLY  ASSUMES  (THRU  SUMR)  THAT  THE  ROHNTS  FOR  THE 
(K-l)  MOST  EXPENSIVE  PARTS  HAVE  BEEN  CCHPUTED  AND  ROUOHT. 


CnHD-SR(I*ll.FHR|CDMD) 
SUMBZ(I)=SUMB?(  I )  ♦  COMO 


T  SUHB -AH A  X 1 (SUMDZ ( I I-SUKR, 0.) 

IF  HTSUHB-RNCS  (II J  ).GC.ALLOWB(I)  1  RNCS (II  )-TSUMB-ALLCwB(I) 
200  CONTINUE 

CALC  (SUMR)  TOTAL  UNITS  STOCK  PEOUIRED  FOR  THE  K  MOST  EXPENSIVE 
PARTS 

SUMP -SUHR ♦RNCS  C 1 1 ) 

300  CONTINUE 
RETURN 
END 


'"  •**  •**  «“*  w***  •** 


T 


t 

7 

8 
9 

1  c 


29 
Jr 
3  i 
32 
i  3 
34 


4  <: 

<i  3 

•4  <* 

<(  5 
t 

43 

4  e 

49 

5C 

5  1 
5  2 
5  3 
5  4 
55 
5  t 

5  3 

58 

59 

6  C 
6  1 
6  2 
b  1 
6  4 

65 

66 

6  3 
6  « 
69 

7  C 
7  1 
72 
7  3 

74 

75 

76 
7  7 
7€ 
7  9 
o  r. 

o  1 
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SUBROUTINE  NCRNCR 


SUBROUTINE  NCRNCR  (  NO  ,  F  HR , NP 1 
NAME:  NCRNCR  TYPE:  SUBROUTINE 

PURPOSE:  THT  NCRNCT  (NO  CANNIBALIZATION  RE Q UI R E MEN T S-RE SI  DU AL ) SUB R 0 UT  I NE 
GENERATES  A  LEAST  COST  RESIDUALIINIT  INV -CURRENT  INVENTORY)  ROMNTS  MIX 
or  SPARC  PARTS  NEEDED  TO  HEET  A  FLYING  HR  PROGRAM  USING  A  'NO  SUBSTITUTION 
REPLACEMENT  POLICY  AND  UNCONSTRAINED  COSTS. 

ARGUMENTS: 


1 1 

C 

NAME 

0  IHENSION 

TYPE 

DESCRIPTION 

1  2 

C 

. 

1  3 

c 

1  4 

c 

FHR  (I  ) 

120  REAL 

SEE 

ARGUMENT  LIST  ABOVT 

1  5 

c 

1  t 

c 

1  7 

c 

NO 

1 

F  I  XCO 

INPUT  ARGUMENT  SET  TO  NR  DAYS 

1  F  °0  M 

1  8 

c 

DAY  11  FOR  WHICH  FULL  RQMNT  IS 

TO  BE 

1  9 

c 

COMPUTED 

2  E 

c 

2  1 

c 

FHR(T) 

120 

REAL 

PROGRAM  FLYING  HRS  REQUIRED  ON 

DAY  I 

22 

c 

(SAME  AS  FHR (  1  )  IN  MAIN  PROG) 

2  3 

c 

NP 

1 

FIXED 

NR  OF  PART  TYPES  TREATED  (SAnE 

AS  NP 

2  4 

c 

IN  MAIN  PROGRAM) 

2  5 

c 

CALLED  BY:  MAIN  PROGRAM 

26 

c 

2  7 

c 

CALLS 

28 

c 

-FUNCTION 

SR 

FILES  USED 
LOCAL  ARRAYS 


NO  FILES  READ  OR  WRITTEN 


3  5 

C 

NAME 

OIMENSION 

TYPE 

36 

C 

37 

C 

36 

C 

SUMB2H  ) 

I2C 

RCAL 

3  9 

C 

4  C 

C 

4  1 

C 

SUMPC I ) 

120 

REAL 

DESCRIPT  ION 


CUMULATIVE  RAW (I NIT  STK=0>  DEmAnTS 
(ALL  PARTS)  THRU  DAY  I 

TOTAL  UNITSCALL  PARTS)  STOCKED  IN  EXCESS 
OF  EXPECTED  DEMAND  ON  DAY  T) 


COMMON  BLOCK  (UNLABTLEO)  ENTRICS  USED  IN  THIS  ROUTINE 


NAME 


DIMENSION  TYPE 


ALLCWe ( I  I 


IRC (J1 


R  NC  S 1  ( J  ) 


120  PEAL 


300  PEAL 


300  REAL 


DESCRIPTION 


MAXIMUM  ALLOWABLE  NMCS  AC  ON  DAY  I  WHICH 
WILL  STILL  ALLOW  ACHIEVMENT  OF  CASE  OBJECTIVE 

(Fly  hr  and  availability)  on  day  i 

PART  NR  CORRESPONDING  TO  THE  J-TH  MOST 
COSTLY  PART  TYPE. (SEE  MAIN  PROGRAM  COMMON) 

THIS  ROUTINE  MUST  PROCESS  PARTS  IN  ORDER 
OF  DECREASING  UNIT  COST. 

RESIDUAL  REQMTdNlT  STwrCURR  STH)  FOR  PART  J 
USING  A  ’FULL  SUBSTITUTION’  REPLACEMENT  POLICY 
WITH  UNCONSTRAINED  COST.  THIS  OUANTITY 
IS  CALCULATED  ONLY  IN  THIS  ROUTINE, ANP 
IS  PASED  THRU  COMMON  TO  THE  MAIN  PROG 


COMMON 

♦  ALLOUB (  12C )  i 

»  OCY ( 300  )  • 

«  RNCS ( 3U0 ) , 

DIMENSION 

♦  F  HR (120), 
SUKR=0. 

00  100  1  =  1,7 

iUMP(LI=C, 


PC Y <  300  I  , 

DF  (  300)  , 
FNCSl»30n>, 


BFI  300) , 

OMD (30D)  , 
RNMCS ( 300  )  , 


CF  (300), 
IRCC  3DP) , 
S( 300) 


SUMBZ ( 1 20 ) ,  SUMP ( 120 ) 


.NO 


SUMP  I L I  Li 
100  SUrtB2(L)=0. 

TSUMb=0 . 

PROCESS  PARTS  IN  DECREASING  COST  ORDER 


A-23 


.*»  «'■  „V.V  v  V  V  • 


■' . 

•  •  .  •  .  ■  i  v  'j  •  >  V 


•-■.•.•.•.'.■-.‘..s' •Nl&v 

--1  *-•  •■V  o.  >-•  u  u  ■. 


DO  JOO  K=1,NP 
11=1RC(K) 


b  2 
o  2 
B9 

a  ; 
a  6 


a  7 

a  £ 
as 

9  c 

>7  1 

V  t 

s 2 

'» t 
9  £ 
9  £ 
9  7 
9  £ 


9  9 
IOC 
10  1 
lu  2 
10  2 
10  M 
•  c 


10  £ 
10  7 
iue 

10  9 

11  r 
u  l 
11  2 
11  2 
119 
11  £ 
11  £ 


C 

C  INITIALIZE  RESIDUAL  RQMNI  10  INITIAL  TNVENTORYISl  II > 

C 

KNCS1  III  1=SI  in 

IF  I  S I  1 1  »  .GT.  RNMCS(II))  GO  10  3U0 
comd=o. 

00  700  1=1, NO 

c 

C  CALC  CUMULATIVE  NET  OE HAND  (CCH0)  FOP  PART  II  THRU  DAY  I. 

C  THEK  CALC  EXCESS  (SUHP(I)  OF  CURRE  NT  INVENTORY  OVER  NET  DEMAND 
C  THEN  CALC  tSUMeZflll  TOTAL  NET  OE  KANO  THRU  DAY  X  OVER  THE  V  MOST 
C  EXPENSIVE  PART  TYPES.  FINALLY  CALC  (TSUMP)  THE  NET  TOTAL  STOCKOUT 
C  (•HOLES’)  THRU  DAY  I  AN0  SET  THE  RQMNT  FOR  PART  11=  THE  DIFFERENCE 
C  BETWCEN  THE  NET  TOTAL  STOCKOUT  ANO  THE  ALLOWABLE  S TO CK OU T ( AL L 0 WB T 1  ) )  . 
C  THIS  CALC  IMPLICITLY  ASSUMES  (THRU  Sl'MR)  THAT  THE  PQMNTS  FOR  THE 
C  (K-ll  MOST  EXPENSIVE  PARTS  HAVC  SEEN  COMPUTED  AND  SOUGHT. 

C 

COM.D  =  SR(I,II,FHP.CDMD» 

SUMP ( I )=SUMPi 1  1 *AMAX1 ( 0  .  ,  ( RNC  S  1  ( 1 1 ) -CDMD  I) 

SUMBZ  (  I)  =  SUMBZ(  IMCPMD 

TSUM8=AMAXi (SUMBZ ( 1 1 - S UmR • SUM P  < 1 1 ,0.) 

IF  ( (TSUM8-RNCS  1(  II  1 1  .  GE  .  A  LLO  UB  ( I  )  )  RNCSK  1 1 1  =  T  SUM  B -AL  L  OW  B  (  11 
200  CONTINUE 
C 

C  CALC  (SUMR1  TOTAL  UNITS  STOCK  REQUIRED  FOR  THE  K  MOST  EXPENSIVE 
C  PARTS 
C 

SUMRrSUMR+RNCSKII) 

300  CONTINUE 

DO  900  J=1,NP 

900  RNCSK  J)=RNCSI  (  J1 -S  (J1 
RETURN 
END 


CAA-D-84-15 


FUNCTION  SR 


FUNCTION  SR  I  I  ,  J,FHR,CDMD  ) 

NAME:  SR  TYPE:  FUNCTTON 

PUHPOSC:  THF  SR  (STOCK  REQUIREDI  ("UNCTION  CALCULATES  T  HF  CULMUL  A  T 1 V F 

nct  oemand  thru  a  specifoied  oay  for  a  specified  part  based 

ON  A  SPECIFIED  FLYING  PROGRAM.  INITIAL  INVENTORY  :D  IS 
ASSUMED  IN  THIS  CALCULATION.  NET  DEMANDS  IS  BASICALLY 
TAILED  ITEMS  OFFSET  BY  RETURNING  REPAIRS.  IN  A  SENSE  IT'S  THE 
NET  NR  OF  ’HOLES*  (CAUSED  eY  I  HE  ITEM)  WHICH  ARE  PRCStNT  ON 
A  SPECIFIED  DAY  .ASSUMING  A  ZERO  INITIAL  INVENTORY. 


ARGUMf NTS : 


DIMENSION  TYPE 


DESCRIPTION 


FHR(I ) 


1  REAL 


120  REAL 


THE  CUHULATIVF  net  DEMAND  THRU  THE 
PREVIOUS  DAY(I-I)FOR  PART  NR  J. 

IT-  U  OP  A  PREVIOUSLY  CALCULATED  VALUE 
(FOR  DAY  I - I »  OF  SR. 

PROGRAM  FLYING  HRS  FLOWN  ON  U  AY  I. 
SOMETIMES  THIS  WILL  BE  THF  SAME  AS 
FHR(I>  IN  THE  MAIN  PR OG . SOMET TH E S ( I  N 
CAPABILITY  ASSESSMENT)  THIS  -ILL  PE  AN 
ESTIMATE  OF  ’FLYING  HRS  FLOWN’  ON  DAY  I. 

CURRENT  DAY 

PART  NR  OF  PART  BEING  PROCESSED 


CALLED  BY:  MAIN  PROGRAH 
CALLS 

-FUNCTION  SR 

FILES  USED  :  NO  FILES  REAO  OR  WRITTEN 
LOCAL  ARRAYS 


NAME  DIMENSION  TYPE 


DESCRIPTION 


FHP(I) 


120  REAL  SEE  ARGUMENT  LIST  ABOVE 


COMMON  BLOCK  (UNLABELCOI  ENTRIES  USEO  IN  THIS  ROUTINE 


DIMENSION  TYPE 


description 


OCY(J) 


300  REAL  BASE  REPAIP  CYCLE  TIME  (DAYS)  OF  PART  J 
CBASt  REPAIR  TIME  OF  PART )(BASE -RETAIL) 

300  REAL  A  COEFFICIENT  USED  IN  CALCULATION  OF  NET 
OEMANDS( SR( I, J, ..  )  )  FOR  PARI  J.  IT: 

( I -BC ( J) )*( I-2NRT ( J) I *cF ( J  ) 

300  RLAL  A  COEFFICIENT  USED  IN  CALCULATION  OF  NET 
DEMANDS! SR  1 1  ,  J  . . .  )  )  FOR  PART  J.  IT: 

Fr( J)*CPA(J> 

300  REAL  DEPOT  RECYCLC  TIME  FOR  PART  TYPE  J.I.E. 

TIME  BETWEEN  R  E “ 0 V  AL  AND  RETURN  FROM  D^POT 
REPAIR.  THIS  :  DEPOT  REPAIR  TIME  *  2*0RDER 
SHIP  TIME. 


COMMON 

«  ALLOWS (  120  I  . 

♦  UCY ( 300 ) . 

♦  RNCSI30C), 
DIMENSION 

»  FHR(12G) 


DCY ( 3D0  I  , 
rF(3DC)  , 
RNCS1 (300), 


BF ( 300) , 

DMD (  300)  . 
RNMCS (300  )  . 


CF ( 300  > . 
IRC1300), 
S ( 303 ) 


CALC  (ID, IP)  THE  DAYS  ON  WHICH  ’ITEMS  RETURNING  TODAY(OAY  I) 
FROM  DEPOT’  FAlLfO. 


*  •  *  ’  »  V  •  *•  '  ■  *  .  "  •  *  .*.*.■  .  *  .  . '»  _  ’*  .  »  *  ■  .*•  "•  '•  *•  \  *,  ",  •»**.*  *.  ,*  *»*’.*''*,’ 

.  «f*  *  *  •.  *  »  '  *  •  (  *  •  ,  «  • \  ,*  ,*  * 


V*V vY 


A-25 
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b  l 

1C-I-DCV( J» 

o  2 

ie=i-ecY< Ji 

U  A 

DPR  -0 . 

b  2 

BRRrO . 

66 

C 

c  7 

C 

CALC  <0RRI  RETURNING  R FPA I RS < R E TURN I  MG  ON  PAY  I1FR0M  DEPOT  AMD 

J  .  V 

b  6 

c 

CALC  (uRRI  RETURNING  REPAIRS  FROM  RETAIL.  THEN  DETERMINE  CU“ULAT1V£ 

a  9 

c 

net  demand  (thru  tooayiday  in  by  aod  net  demands  generated 

\  '« 

v  c 

c 

today  TO  CUMULATIVE  NET  DEMANDS  THRU  YESTERDAY, 

9  1 

c 

•  ’  ’* 

*» : 

IF  (ID.fT.Q1  ORRrOF  (JIPfHR ( ID1 

»** 

9  2 

IF  (IP.fT.O)  RRRrBF  (J1*FHR( I&1 

9  9 

:p=comd«cf (j)*fhriii-orr-brr 

4 

9  i 

RETURN 

9  t 

END 

A 


d*V  j*Ay 


.-.V.'.-.V.  s  V/.  V  "JfrV.V 


FUNCTION  MAXC 


'  V* 


CAA-D-84-15 


< 
7 
« 
3 
1C 
1 1 
i  : 
1  2 
1  « 
1  S 
1  t 
1  7 

1  e 
1 9 
2C 

2  1 
22 
2  :• 
24 
2  S 
2  < 
2  1 
2  C 
29 

2  C 
2  1 
22 

3  2 
3* 

7  C 

-J  . 

3  6 
3  7 

3  c 
39 
4C 

4  1 
4  2 
*4  3 
4  9 
4  9 
4  t 
4  7 


FUNCTION  MAXC  <  NP  I 

C  NAME:  F  MAX  TYPE:  FUNCTION 

C 

c  purpose :  rut  fmax  function  finds  the  subscript  of  The  largesttin  value 

C  MEMBER  OF  AN  ARRAY  IDMOIJll 

c 

C  ARGUMENTS: 

C 

C  NAME  DIMENSION  TYPE 

C 

C  NP  1  FIXED 

C 
C 
C 
C 
C 


c 

r 

CALLED 

BY:  MAIN  PROGRAH 

t 

C 

c 

CALLS 

:  NONE 

c 

r 

FILES 

USED  :  NO  FILES 

READ  OR  WRITTEN 

V. 

C 

r 

LOCAL 

ARRAYS  :  NONE 

L 

C 

r 

COMMON 

BLOCK  ( UNLA8CLED  1  ENTRIES  USED 

IN  THIS  ROUTINE 

V 

c 

Q 

NAME 

DIMENSION 

TYPE 

DESCR IPTION 

C 

D  MO  1 J 1 

300 

PEAL  WORKING 

ARRAY  USED  HERE 

TO  STORE  THE 

C 

c 

APRAY  BEING  ORDERED. 

COMMON 

4 

ALLOUB ( I2C  1  , 

PC  Y  <  3C0  1  , 

BE  1 3001 , 

CF  1 300  > , 

4 

UCY<300 J, 

OF  (  300  1  , 

DMDC30D1, 

IRCI  3001  , 

4 

c  y 

RNCSC300I  , 

A  V  «■  _  1 

PNC  S 1 ( 3G0 ) , 

RNMCS ( 3U0 1 , 

S 1 330  1 

description 

NR  OF  ITEMS  IN  ARRAY  TO  BE  ORDERED. 
USUALLY, THIS  IS  THE  NR  OF  PART  TYPES 
PROCESSED , BUT  ONCE  IN  THE  MAIN  P&M 

is  the  nr  of  •  min  reo  acft  avail* 

SPECIFICATIONS  READ  IN. 


JPAXC] 

00  ICO  Jrl.NP 
X  =  DhD  < J1 

zkaxzamaxKSmax.xi 
IF  (7MAX  .LE.SMAX 1  GO  TO  IOC 
JMAX=J 
SMAX=7MAX 
I  GO  CONTINUE 
MAXC^JHAX 
RETURN 
ENU 


1 


CAA-D-84-15 


GLOSSARY 

ABBREVIATIONS,  ACRONYMS,  AND  SHORT  TERMS 


acft 

aircraft 

AFH 

achievable  flying  hours 

AFLC 

Air  Force  Logistics  Command 

AMC 

US  Army  Materiel  Command 

AR 

Army  regulation 

ASL 

authorized  stockage  list(s) 

avail 

availability 

avg 

average 

AVIM 

aviation  intermediate  maintenance 

AVSCOM 

US  Army  Aviation  Systems  Command 

AVUM 

aviation  unit  maintenance 

CAA 

US  Army  Concepts  Analysis  Agency 

CCSS 

Commodity  Command  Standard  System 

CONUS 

Continental  United  States 

cont 

continued 

cum 

cumulative 

curr 

current 

DCSLOG 

US  Army  Deputy  Chief  of  Staff  for  Logistics 

DESCOM 

US  Army  Depot  Systems  Command 

DOD 

Department  of  Defense 

Glossary-1 
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EFH 

estimated  flying  hours 

FH 

flying  hour(s) 

FHP 

flying  hour  program 

hr 

hour 

MFHAD 

maximum  flying  hours  per  aircraft  per  day 

min 

minimum 

MSC 

major  subordinate  command 

NMC 

not  mission  capable 

NMCS 

not  mission  capable  due  to  supply 

NRTS 

not  repairable  at  this  station 

OST 

order  and  ship  time 

PARCOM 

Parts  Requirements  and  Cost  Model 

PLL 

prescribed  load  list(s) 

QPA 

quantity  per  application 

rqmt(s) 

requirement(s) 

sub 

substitution 

Glossary-2 


END 

FILMED 

4-85 

DTIC 


